Encode a potentially large natural number as a JSON string.
(jp-bignat x &key (ps 'ps)) → ps
Function:
(defun jp-bignat-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (natp x))) (let ((__function__ 'jp-bignat)) (declare (ignorable __function__)) (vl-print-str (natstr x))))