Accept tabs as whitespaces

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 9c3db2b..0516837 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)))
+  (or (char= ch #\space) (char= ch #\newline) (char= ch #\tab)))
 
 (defun skip-whitespaces (stream)
   (let (ch)
@@ -178,6 +178,7 @@
                         (read-until stream #'terminalp))))
             (cond
               ((string= cname "space") (char-code #\space))
+              ((string= cname "tab") (char-code #\tab))
               ((string= cname "newline") (char-code #\newline))
               (t (char-code (char cname 0))))))
          (#\+

diff --git a/test.lisp b/test.lisp
index bfbabe2..8efbcbe 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)))
+  (or (char= ch #\space) (char= ch #\newline) (char= ch #\tab)))
 
 (defun skip-whitespaces (stream)
   (let (ch)
@@ -421,6 +421,7 @@
                         (read-until stream #'terminalp))))
             (cond
               ((string= cname "space") (char-code #\space))
+              ((string= cname "tab") (char-code #\tab))
               ((string= cname "newline") (char-code #\newline))
               (t (char-code (char cname 0))))))
          (#\+