Encode a booleanp into JSON as
(jp-bool x &key (ps 'ps)) → ps
Function:
(defun jp-bool-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (booleanp x))) (let ((__function__ 'jp-bool)) (declare (ignorable __function__)) (if x (vl-print-str "true") (vl-print-str "false"))))