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

[lisp] / mdw-base.lisp

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


@@ -120,9 +119,12 @@ (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
-             #+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))
     (t nil)))
 
 (declaim (ftype (function nil ()) slot-unitialized))