Save the contents of a ppst into a vl-saved-ppst.
(vl-save-ppst &key (ppst 'ppst)) → saved
Function:
(defun vl-save-ppst-fn (ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard t)) (let ((__function__ 'vl-save-ppst)) (declare (ignorable __function__)) (make-vl-saved-ppst :acc (vl-ppst->acc) :istack (vl-ppst->istack) :activep (vl-ppst->activep) :defines (vl-ppst->defines) :filemap (vl-ppst->filemap) :config (vl-ppst->config) :iskips (vl-ppst->iskips) :warnings (vl-ppst->warnings) :includes (vl-ppst->includes) :bytes (vl-ppst->bytes) :idcache (vl-ppst->idcache) :ifdefmap (vl-ppst->ifdefmap) :defmap (vl-ppst->defmap))))
Theorem:
(defthm vl-saved-ppst-p-of-vl-save-ppst (b* ((saved (vl-save-ppst-fn ppst))) (vl-saved-ppst-p saved)) :rule-classes :rewrite)