X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/a035dd4a8175317f19a35cd04568d1655fb8d417..8a2e8de1d736200d9aa751b85d5f97af33b91150:/mdw-base.lisp

diff --git a/mdw-base.lisp b/mdw-base.lisp
index c4c3e17..8ba9a24 100644
--- 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
-    ((#\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))