(vl-tokstream->position &key (tokstream 'tokstream)) → position
Function:
(defun vl-tokstream->position$inline (tokstream) (declare (xargs :stobjs (tokstream))) (declare (xargs :guard t)) (let ((__function__ 'vl-tokstream->position)) (declare (ignorable __function__)) (lnfix (vl-tokstream->position-raw tokstream))))
Theorem:
(defthm natp-of-vl-tokstream->position (b* ((position (vl-tokstream->position$inline tokstream))) (natp position)) :rule-classes :type-prescription)