OSCL/cl-ppcre
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

correct syntax error message for #\c unescaping

Browse Source
This commit is contained in:
james anderson
2017-06-09 20:34:23 +02:00
committed by Stas Boukarev
parent fc2e28dcce
commit e11d9b6032
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lexer.lisp
View File

@ -241,7 +241,7 @@ handled elsewhere."
;; \cx means control-x in Perl ;; \cx means control-x in Perl
(let ((next-char (next-char-non-extended lexer))) (let ((next-char (next-char-non-extended lexer)))
(unless next-char (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)))))) (code-char (logxor #x40 (char-code (char-upcase next-char))))))
((#\x) ((#\x)
;; \x should be followed by a hexadecimal char code, ;; \x should be followed by a hexadecimal char code,