Erase the contents of ps without altering its configuration.
(vl-ps-text-reset &key (ps 'ps)) → ps
Function:
(defun vl-ps-text-reset-fn (ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard t)) (let ((__function__ 'vl-ps-text-reset)) (declare (ignorable __function__)) (vl-ps-seq (vl-ps-update-rchars nil) (vl-ps-update-col 0))))