(defun lexer-error (char-scanner expected consumedp)
"Signal a continuable lexical error."
(cerror* "Lexical error: ~
- expected ~{~#[<bug>~;~A~;~A or ~A~;:~A, ~]~} ~
+ expected ~{~#[<bug>~;~A~;~A or ~A~:;~A, ~]~} ~
but found ~/sod::show-char/~
~@[ at ~A~]"
(mapcar (lambda (exp)