Skip to content
Permalink
Browse files

Escape backslashes in tokens.

  • Loading branch information...
Shinmera committed Jul 18, 2017
1 parent 999729e commit 9515e8d2f6a572b248648459acab1ce199e0b324
Showing with 1 addition and 1 deletion.
  1. +1 −1 printer.lisp
@@ -34,7 +34,7 @@
do (when (char= char (code-char 0))
(error 'null-in-symbol-designator :symbol-designator (cons (package-name (symbol-package symbol))
(symbol-name symbol))))
(when (find char "\"():0123456789. #")
(when (find char "\\\"():0123456789. #")
(write-char #\\ stream))
(write-char (char-downcase char) stream)))

0 comments on commit 9515e8d

Please sign in to comment.
You can’t perform that action at this time.