From 9777624e92a0ae4570ee7d5c53a6325ae1047b94 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 2 May 2013 15:59:51 +0100 Subject: [PATCH] Fix bug in character reading --- src/read.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/read.lisp b/src/read.lisp index ac9e0f3..7478b37 100644 --- a/src/read.lisp +++ b/src/read.lisp @@ -138,9 +138,9 @@ (concat (string (%read-char stream)) (read-until stream #'terminalp)))) (cond - ((string= cname "space") (char-code #\space)) - ((string= cname "tab") (char-code #\tab)) - ((string= cname "newline") (char-code #\newline)) + ((string= cname "space") #\space) + ((string= cname "tab") #\tab) + ((string= cname "newline") #\newline) (t (char cname 0))))) (#\+ (let ((feature (read-until stream #'terminalp))) @@ -173,7 +173,7 @@ (dotimes (i (length s)) (let ((ch (char s i))) (if last-escape - (progn + (progn (setf last-escape nil) (setf result (concat result (string ch)))) (if (char= ch #\\) -- 1.7.10.4