Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
climacs
climacs
Commits
7012cbca
Commit
7012cbca
authored
Jul 07, 2006
by
Troels Henriksen
Browse files
Make `whitespacep' just return T on success.
parent
3324d4a1
Changes
1
Hide whitespace changes
Inline
Side-by-side
syntax.lisp
View file @
7012cbca
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment