X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/dea4d05507e59ab779ed4bb209e05971d87e260c..180bfa7ca8efeb1297a0bc3f0ff55b02b4e40f9b:/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 ()