[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv6679

Modified Files:
	syntax.lisp 
Log Message:
Make `whitespacep' just return T on success.


--- /project/climacs/cvsroot/climacs/syntax.lisp	2006/06/12 19:10:58	1.66
+++ /project/climacs/cvsroot/climacs/syntax.lisp	2006/07/07 23:23:10	1.67
@@ -742,7 +742,8 @@
   (:method (syntax obj)
     nil)
   (:method (syntax (obj character))
-    (member obj '(#\Space #\Tab #\Newline #\Page #\Return))))
+    (when (member obj '(#\Space #\Tab #\Newline #\Page #\Return))
+      t)))
 
 (defgeneric page-delimiter (syntax)
   (:documentation "Return the object sequence used as a page