(vl-tnames-to-json x) → *
Function:
(defun vl-tnames-to-json (x) (declare (xargs :guard (vl-tnamelist-p x))) (let ((__function__ 'vl-tnames-to-json)) (declare (ignorable __function__)) (b* ((bases (vls-sort-bases (vl-tnamelist-bases x)))) (vl-tnames-to-json-aux bases x))))