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

[Robert Strandh]

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

Modified Files:
	base.lisp 
Log Message:
patches to constituentp and whitespacep
(thanks to Splittist)


Date: Mon May 30 11:09:49 2005
Author: rstrandh

Index: climacs/base.lisp
diff -u climacs/base.lisp:1.38 climacs/base.lisp:1.39
--- climacs/base.lisp:1.38	Sun Mar 13 21:51:48 2005
+++ climacs/base.lisp	Mon May 30 11:09:48 2005
@@ -177,13 +177,16 @@
   "A predicate to ensure that an object is a constituent character."
   (and (characterp obj)
        #+sbcl (sb-impl::constituentp obj)
-       #-sbcl (alphanumericp obj)))
+       #-sbcl (or (alphanumericp obj)
+                  (member obj '(#\! #\$ #\% #\& #\* #\+ #\- #\. #\/
+                                #\: #\< #\= #\> #\? #\@ #\^ #\~ #\_
+                                #\{ #\} #\[ #\] )))))
 
 (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))))
+       #-sbcl (member obj '(#\Space #\Tab #\Newline))))
 
 (defun forward-to-word-boundary (mark)
   "Move the mark forward to the beginning of the next word."