Various: Try porting the code to CLisp.

[lisp] / mdw-base.lisp

diff --git a/mdw-base.lisp b/mdw-base.lisp
index c4c3e1748224af8bb00c0c73d3aa98363880ca71..8ba9a24bf7130c6f71bd04570d9f9e57eb42701b 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -119,7 +119,9 @@ (compile-time-defun pairify (x &optional (y nil defaultp))
 (defun whitespace-char-p (ch)
   "Return whether CH is a whitespace character or not."
   (case ch
 (defun whitespace-char-p (ch)
   "Return whether CH is a whitespace character or not."
   (case ch

-    ((#\space #\tab #\newline #\return #\vt #\formfeed) t)
+    ((#\space #\tab #\newline #\return #\vt
+             #+cmu #\formfeed
+             #+clisp #\page) t)

     (t nil)))
 
 (declaim (ftype (function nil ()) slot-unitialized))
     (t nil)))
 
 (declaim (ftype (function nil ()) slot-unitialized))