From 67cb6748a3e277c0a6bab682aa31249850445226 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 19 Dec 2006 15:00:46 +0000
Subject: [PATCH] mdw-base (whitespace-char-p): Work out the whitespace
 characters.

This saves us needing a list of the whitespace characters known by
each individual implementation.
---
 mdw-base.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 2c463e9..072c8d6 100644
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -119,9 +119,12 @@
 (defun whitespace-char-p (ch)
   "Return whether CH is a whitespace character or not."
   (case ch
-    ((#\space #\tab #\newline #\return #\vt
-	      #+cmu #\formfeed
-	      #+clisp #\page) t)
+    (#.(loop for i below char-code-limit
+	     for ch = (code-char i)
+	     unless (with-input-from-string (in (string ch))
+		      (peek-char t in nil))
+	     collect ch)
+       t)
     (t nil)))
 
 (declaim (ftype (function nil ()) slot-unitialized))
-- 
2.11.0