(jp-maybe-nat x &key (ps 'ps)) → ps
Function: jp-maybe-nat-fn
(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) (jp-null))))