(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))))))