From: David Vazquez <davazp@gmail.com>
Date: Sat, 22 Dec 2012 05:30:50 +0000 (+0000)
Subject: Fix reader for T character
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=11c4a9d8ddc48209283cd0f2ce4b21d5ce18c964;p=jscl.git

Fix reader for T character
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index fa7ed78..9c3db2b 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -85,7 +85,7 @@
          (setcdr stream (1+ (cdr stream))))))
 
 (defun whitespacep (ch)
-  (or (char= ch #\space) (char= ch #\newline) (char= ch #\tab)))
+  (or (char= ch #\space) (char= ch #\newline)))
 
 (defun skip-whitespaces (stream)
   (let (ch)
diff --git a/test.lisp b/test.lisp
index 40707a0..bfbabe2 100644
--- a/test.lisp
+++ b/test.lisp
@@ -328,7 +328,7 @@
          (setcdr stream (1+ (cdr stream))))))
 
 (defun whitespacep (ch)
-  (or (char= ch #\space) (char= ch #\newline) (char= ch #\tab)))
+  (or (char= ch #\space) (char= ch #\newline)))
 
 (defun skip-whitespaces (stream)
   (let (ch)