Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv26975

Modified Files: base.lisp Log Message: Extended our `constituentp' function to also accept ##.

--- /project/mcclim/cvsroot/mcclim/Drei/base.lisp 2007/02/06 09:25:43 1.5 +++ /project/mcclim/cvsroot/mcclim/Drei/base.lisp 2007/04/06 23:54:48 1.6 @@ -332,7 +332,7 @@ (or (alphanumericp obj) (member obj '(#! #$ #% #& #* #+ #- #. #/ #: #< #= #> #? #@ #^ #~ #_ - #{ #} #[ #] ))))) + #{ #} #[ #] ##)))))

(defun buffer-whitespacep (obj) "Return T if `obj' is a basic whitespace character. This