Fix character reader for input like #\)

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 7a0b9b8..ba60596 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -164,7 +164,9 @@
          (#\'
           (list 'function (ls-read stream)))
          (#\\
-          (let ((cname (read-until stream #'terminalp)))
+          (let ((cname
+                (concat (string (%read-char stream))
+                        (read-until stream #'terminalp))))
             (cond
               ((string= cname "space") (char-code #\space))
               ((string= cname "newline") (char-code #\newline))