X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/012554e1b6f02cd77028e5f2c463b11738fa2c59..02840f3dba856d042fe27a0adfb0367346447cda:/src/lexer-proto.lisp diff --git a/src/lexer-proto.lisp b/src/lexer-proto.lisp index d6d33cb..1850326 100644 --- a/src/lexer-proto.lisp +++ b/src/lexer-proto.lisp @@ -82,7 +82,7 @@ (defun lexer-error (char-scanner expected consumedp) "Signal a continuable lexical error." (cerror* "Lexical error: ~ - expected ~{~#[~;~A~;~A or ~A~;:~A, ~]~} ~ + expected ~{~#[~;~A~;~A or ~A~:;~A, ~]~} ~ but found ~/sod::show-char/~ ~@[ at ~A~]" (mapcar (lambda (exp)