X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/012554e1b6f02cd77028e5f2c463b11738fa2c59..7b7947024fedb0bb7a0ea3ccb0029f6060de901b:/src/lexer-proto.lisp?ds=inline

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 @@ (export 'lexer-error)
 (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)