(vl-tokstream-add-warning warning &key (tokstream 'tokstream)) → new-tokstream
Function:
(defun vl-tokstream-add-warning-fn (warning tokstream) (declare (xargs :stobjs (tokstream))) (declare (xargs :guard (vl-warning-p warning))) (let ((__function__ 'vl-tokstream-add-warning)) (declare (ignorable __function__)) (b* ((warning (vl-add-context-to-parser-warning warning)) (pstate (vl-tokstream->pstate)) (pstate (vl-parsestate-add-warning warning pstate)) (tokstream (vl-tokstream-update-pstate pstate))) tokstream)))
Theorem:
(defthm vl-tokstream->tokens-of-vl-tokstream-add-warning (equal (vl-tokstream->tokens :tokstream (vl-tokstream-add-warning warning)) (vl-tokstream->tokens)))