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."