(vls-get-summaries data) → ans
Function:
(defun vls-get-summaries (data) (declare (xargs :guard (vls-data-p data))) (let ((__function__ 'vls-get-summaries)) (declare (ignorable __function__)) (b* (((vls-data data)) (descriptions (alist-vals data.orig-descalist)) (summaries (vl-descriptionlist-summaries descriptions))) (vls-success :json (bridge::json-encode summaries)))))
Theorem:
(defthm stringp-of-vls-get-summaries (b* ((ans (vls-get-summaries data))) (stringp ans)) :rule-classes :type-prescription)