Check whether the current token has a particular type.
(vl-is-token? type &key (tokstream 'tokstream)) → bool
Function:
(defun vl-is-token?$inline (type tokstream) (declare (xargs :stobjs (tokstream))) (declare (xargs :guard t)) (let ((__function__ 'vl-is-token?)) (declare (ignorable __function__)) (b* ((tokens (vl-tokstream->tokens))) (and (consp tokens) (eq (vl-token->type (car tokens)) type)))))
Theorem:
(defthm vl-is-token?-fn-when-atom-of-tokens (implies (atom (vl-tokstream->tokens)) (equal (vl-is-token? type) nil)) :rule-classes :type-prescription)