X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/3a774b55edfea441c1715994924c2999e9202143..c6b4ed992d81518f240509e6ab212d8fe705485a:/src/parser/scanner-impl.lisp diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp index d856ba9..411cbc1 100644 --- a/src/parser/scanner-impl.lisp +++ b/src/parser/scanner-impl.lisp @@ -61,7 +61,8 @@ (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))))))