Fix reader for T character

diff --git a/lispstrack.lisp b/lispstrack.lisp
index fa7ed78..9c3db2b 100644 (file)
--- 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 (file)
--- 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)