(vl-tokstream-save &key (tokstream 'tokstream)) → backup
Function:
(defun vl-tokstream-save-fn (tokstream) (declare (xargs :stobjs (tokstream))) (declare (xargs :guard t)) (let ((__function__ 'vl-tokstream-save)) (declare (ignorable __function__)) (make-vl-tokstream-backup :tokens (vl-tokstream->tokens) :pstate (vl-tokstream->pstate))))
Theorem:
(defthm vl-tokstream-backup-p-of-vl-tokstream-save (b* ((backup (vl-tokstream-save-fn tokstream))) (vl-tokstream-backup-p backup)) :rule-classes :rewrite)
Theorem:
(defthm vl-tokstream-backup->tokens-of-vl-tokstream-save (equal (vl-tokstream-backup->tokens (vl-tokstream-save)) (vl-tokstream->tokens)))