From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 27 Jan 2007 16:33:40 +0000 (+0000)
Subject: Merge branch 'master' of /home/mdw/public-git/lisp
X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/commitdiff_plain/67b41ed338b6050f40bf9de24804502e96f84104?hp=8f801ae819d1f622601c9786a0fce27102b49378

Merge branch 'master' of /home/mdw/public-git/lisp

* 'master' of /home/mdw/public-git/lisp:
  base: with-parsed-body, different interface.
  collect: Provide functional interface for collectors.
---

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 23bb4ef..ffda8c0 100644
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -81,8 +81,7 @@
   (typecase str
     (string str)
     (symbol (symbol-name str))
-    (t (with-output-to-string (s)
-	 (princ str s)))))
+    (t (princ-to-string str))))
 
 (defun mappend (function list &rest more-lists)
   "Apply FUNCTION to corresponding elements of LIST and MORE-LISTS, yielding
@@ -120,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))