src/lexer-proto.lisp (lexer-error): Use Oxford comma for expected tokens.

diff --git a/src/lexer-proto.lisp b/src/lexer-proto.lisp
index 8f194016fe347358df16529aabbfaf5948f3b616..5405da7c28fa3e76ef8a826c4a01fa797d8e4ca7 100644 (file)
--- a/src/lexer-proto.lisp
+++ b/src/lexer-proto.lisp
@@ -85,7 +85,8 @@ (defun lexer-error (char-scanner expected &key location)
   (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)