Save the current configuration of ps into a vl-psconfig-p object.
(vl-ps-save-config &key (ps 'ps)) → config
Note that this does not save the currently-printed text and column number; only the configuration settings are saved.
Function:
(defun vl-ps-save-config-fn (ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard t)) (let ((__function__ 'vl-ps-save-config)) (declare (ignorable __function__)) (make-vl-psconfig :autowrap-col (vl-ps->autowrap-col) :autowrap-ind (vl-ps->autowrap-ind) :htmlp (if (vl-ps->htmlp) t nil) :tabsize (vl-ps->tabsize) :package (vl-ps->package) :base (vl-ps->base))))
Theorem:
(defthm vl-psconfig-p-of-vl-ps-save-config (b* ((config (vl-ps-save-config-fn ps))) (vl-psconfig-p config)) :rule-classes :rewrite)