lib/keyword.c (kw_parseempty): Use correct variable scanning `kwval' list.

[sod] / src / parser / scanner-impl.lisp

diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp
index d856ba9c89cdbe708951187b686f5f3fecf08fd5..411cbc16a03e6293c9ee225530a4644e20235d79 100644 (file)
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -61,7 +61,8 @@ (defmethod stream-peek-char ((stream character-scanner-stream))
 (export '(string-scanner make-string-scanner string-scanner-p))
 (defstruct (string-scanner
             (:constructor make-string-scanner
 (export '(string-scanner make-string-scanner string-scanner-p))
 (defstruct (string-scanner
             (:constructor make-string-scanner

-                (string &key (start 0) end filename
+                (string
+                 &key (start 0) end filename

                  &aux (%string string)
                       (index start)
                       (limit (or end (length string))))))
                  &aux (%string string)
                       (index start)
                       (limit (or end (length string))))))