Usable in `format''s ~/.../ command."
(declare (ignore colonp atsignp))
- (cond ((null char) (write-string "<eof>" stream))
+ (cond ((null char) (write-string "<end-of-file>" stream))
((and (graphic-char-p char) (char/= char #\space))
(format stream "`~C'" char))
(t (format stream "<~(~:C~)>" char))))
(cond-parse (:consumedp cp :expected exp)
((satisfies whitespace-char-p) (parse :whitespace))
((scan-comment char-scanner))
- (t (if cp (lexer-error char-scanner exp cp) (return)))))
+ (t (if cp (lexer-error char-scanner exp) (return)))))
;; Now parse something.
(cond-parse (:consumedp cp :expected exp)
;; must make progress on every call.
(t
(assert cp)
- (lexer-error char-scanner exp cp)
+ (lexer-error char-scanner exp)
(scanner-token scanner)))))))
;;;----- That's all, folks --------------------------------------------------