projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8224e25
)
r8230: update from laptop
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 16 Nov 2003 18:47:02 +0000
(18:47 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 16 Nov 2003 18:47:02 +0000
(18:47 +0000)
strings.lisp
patch
|
blob
|
history
diff --git
a/strings.lisp
b/strings.lisp
index a97c37ba551f5d2e436da7954d69a138e248232d..179bdb3ccea252a7c415f58259aea1fe0bb44734 100644
(file)
--- a/
strings.lisp
+++ b/
strings.lisp
@@
-153,12
+153,16
@@
(defun is-string-empty (str)
(zerop (length str)))
(defun is-string-empty (str)
(zerop (length str)))
-(defvar *whitespace-chars* '(#\space #\tab #\return #\linefeed))
+(defvar *whitespace-chars* '(#\space #\tab #\return #\linefeed
+ #+allegro #\%space
+ #+lispworks #\No-Break-Space))
(defun is-char-whitespace (c)
(declare (character c) (optimize (speed 3) (safety 0)))
(or (char= c #\Space) (char= c #\Tab) (char= c #\Return)
(defun is-char-whitespace (c)
(declare (character c) (optimize (speed 3) (safety 0)))
(or (char= c #\Space) (char= c #\Tab) (char= c #\Return)
- (char= c #\Linefeed)))
+ (char= c #\Linefeed)
+ #+allegro (char= c #\%space)
+ #+lispworks (char= c #\No-Break-Space)))
(defun is-string-whitespace (str)
"Return t if string is all whitespace"
(defun is-string-whitespace (str)
"Return t if string is all whitespace"