Encode a vl-bit-p as a JSON string.
(jp-bit x &key (ps 'ps)) → ps
Function:
(defun jp-bit-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (vl-bit-p x))) (let ((__function__ 'jp-bit)) (declare (ignorable __function__)) (jp-str (implode (list (vl-bit->char x))))))