src/classes.lisp, src/class-layout-proto.lisp: Docstring fixes.

[sod] / src / lexer-bits.lisp

diff --git a/src/lexer-bits.lisp b/src/lexer-bits.lisp
index daa533c0ee54019fcae5a308dab5226dfc3abf15..b671164d971712d2e6a93dab657684ff3c24e944 100644 (file)
--- 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 ()