(values end-chars nil nil)))
(return (values it t t)))
(:eof
- (lexer-error char-scanner '(:any) cp)
+ (lexer-error char-scanner '(:any))
(return (values (result) t t)))
;; Opening and closing brackets. Opening brackets push things
((or #\) #\] #\})
(if (eql it delim)
(setf delim (pop stack))
- (cerror* "Unmatched `~C.'." it)))
+ (cerror* "Unmatched `~C'" it)))
;; String and character literals.
((seq ((quote (or #\" #\'))
;; This really shouldn't be able to happen.
(t
(assert cp)
- (lexer-error char-scanner exp cp)))))))))
+ (lexer-error char-scanner exp)))))))))
(export 'parse-delimited-fragment)
(defun parse-delimited-fragment (scanner begin end &key keep-end)