Now EXPECTED can be `nil' to produce a simple `unexpected THING'
message.
"Signal a continuable lexical error."
(cerror*-with-location (or location char-scanner)
"Lexical error: ~
"Signal a continuable lexical error."
(cerror*-with-location (or location char-scanner)
"Lexical error: ~
- expected ~{~#[<bug>~;~A~;~A or ~A~:;~A, ~]~} ~
- but found ~/sod::show-char/"
+ ~:[unexpected~;~
+ expected ~:*~{~#[~;~A~;~A or ~A~:;~A, ~]~} ~
+ but found~] ~
+ ~/sod::show-char/"
(mapcar (lambda (exp)
(typecase exp
(character (format nil "~/sod::show-char/" exp))
(mapcar (lambda (exp)
(typecase exp
(character (format nil "~/sod::show-char/" exp))