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