From e11d9b6032b9e043eb55f50a7391dc400f6dc6ba Mon Sep 17 00:00:00 2001
From: james anderson <james@dydra.com>
Date: Fri, 9 Jun 2017 20:34:23 +0200
Subject: [PATCH] correct syntax error message for #\c unescaping

---
 lexer.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lexer.lisp b/lexer.lisp
index 8ce07fc..3cdc343 100644
--- a/lexer.lisp
+++ b/lexer.lisp
@@ -241,7 +241,7 @@ handled elsewhere."
         ;; \cx means control-x in Perl
         (let ((next-char (next-char-non-extended lexer)))
           (unless next-char
-            (signal-syntax-error* (lexer-pos lexer) "Character missing after '\\c' at position ~A."))
+            (signal-syntax-error* (lexer-pos lexer) "Character missing after '\\c'"))
           (code-char (logxor #x40 (char-code (char-upcase next-char))))))
       ((#\x)
         ;; \x should be followed by a hexadecimal char code,