[climacs-cvs] CVS update: climacs/base.lisp

[Dave Murray]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv6292

Modified Files:
	base.lisp 
Log Message:
Removed sb-impl::whitespacep, which is disappearing.

Date: Tue Aug  9 17:18:28 2005
Author: dmurray

Index: climacs/base.lisp
diff -u climacs/base.lisp:1.41 climacs/base.lisp:1.42
--- climacs/base.lisp:1.41	Fri Aug  5 14:40:55 2005
+++ climacs/base.lisp	Tue Aug  9 17:18:25 2005
@@ -185,8 +185,7 @@
 (defun whitespacep (obj)
   "A predicate to ensure that an object is a whitespace character."
   (and (characterp obj)
-       #+sbcl (sb-impl::whitespacep obj)
-       #-sbcl (member obj '(#\Space #\Tab #\Newline #\Page))))
+       (member obj '(#\Space #\Tab #\Newline #\Page #\Return))))
 
 (defun forward-to-word-boundary (mark)
   "Move the mark forward to the beginning of the next word."