(vl-jp-paramvalue x &key (ps 'ps)) → ps
Function:
(defun vl-jp-paramvalue-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (vl-paramvalue-p x))) (let ((__function__ 'vl-jp-paramvalue)) (declare (ignorable __function__)) (b* ((x (vl-paramvalue-fix x))) (vl-paramvalue-case x :expr (vl-jp-expr x) :datatype (vl-jp-datatype x)))))