From: David Vázquez <davazp@gmail.com>
Date: Tue, 18 Dec 2012 22:28:51 +0000 (+0100)
Subject: Fix character reader for input like #\)
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=08868487a3708573e6f26f23b60fa14bab5dbf30;p=jscl.git

Fix character reader for input like #\)
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 7a0b9b8..ba60596 100644
--- 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))