X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/dea4d05507e59ab779ed4bb209e05971d87e260c..b0ff693c25bf81f935efa15a44fdad6ce95e9f91:/src/lexer-bits.lisp diff --git a/src/lexer-bits.lisp b/src/lexer-bits.lisp index daa533c..b671164 100644 --- a/src/lexer-bits.lisp +++ b/src/lexer-bits.lisp @@ -27,7 +27,7 @@ (defun play-fetch-token (string) ;; Pick out comments. ((peek (and #\/ #\*)) (parse (skip-many () ; this may fail at eof; don't worry - (and (skip-many () (not #\*)) + (and (skip-many () (not #\*)) (skip-many (:min 1) #\*)) (not #\/))) (if-parse :eof ()