(jp-maybe-nat x &key (ps 'ps)) → ps
Function:
(defun jp-maybe-nat-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (maybe-natp x))) (let ((__function__ 'jp-maybe-nat)) (declare (ignorable __function__)) (if x (jp-nat x) (vl-print-str "null"))))