From 11c4a9d8ddc48209283cd0f2ce4b21d5ce18c964 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sat, 22 Dec 2012 05:30:50 +0000 Subject: [PATCH] Fix reader for T character --- lispstrack.lisp | 2 +- test.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4