Commit 7012cbca authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Make `whitespacep' just return T on success.

parent 3324d4a1
......@@ -742,7 +742,8 @@ internal state of the parser. Do not alter it!"
(: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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment