From 08868487a3708573e6f26f23b60fa14bab5dbf30 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Tue, 18 Dec 2012 23:28:51 +0100 Subject: [PATCH] Fix character reader for input like #\) --- lispstrack.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4