Try to match a
(vl-lex-oneline-comment echars) → (mv token/nil remainder)
Function:
(defun vl-lex-oneline-comment (echars) (declare (xargs :guard (vl-echarlist-p echars))) (let ((__function__ 'vl-lex-oneline-comment)) (declare (ignorable __function__)) (b* (((unless (vl-matches-string-p "//" echars)) (mv nil echars)) ((mv & prefix remainder) (vl-read-through-literal *nls* (cddr echars))) (etext (list* (first echars) (second echars) prefix)) (token (make-vl-plaintoken :etext etext :type :vl-comment))) (mv token remainder))))