(cerror*-with-location (or location char-scanner)
"Lexical error: ~
~:[unexpected~;~
- expected ~:*~{~#[~;~A~;~A or ~A~:;~A, ~]~} ~
+ expected ~:*~{~#[~;~A~;~A or ~A~:;~
+ ~@{~A, ~#[~;or ~A~]~}~]~} ~
but found~] ~
~/sod::show-char/"
(mapcar (lambda (exp)