(vl-tokstream-pop &key (tokstream 'tokstream)) → tokstream
Function:
(defun vl-tokstream-pop$inline (tokstream) (declare (xargs :stobjs (tokstream))) (declare (xargs :guard (consp (vl-tokstream->tokens)))) (let ((__function__ 'vl-tokstream-pop)) (declare (ignorable __function__)) (b* ((tokstream (vl-tokstream-update-tokens (cdr (vl-tokstream->tokens))))) (vl-tokstream-update-position (+ 1 (vl-tokstream->position))))))