[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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