From c09e2c2ead02aef697a02fb894bea2642c4c0d55 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 16 Nov 2003 18:47:02 +0000 Subject: [PATCH] r8230: update from laptop --- strings.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/strings.lisp b/strings.lisp index a97c37b..179bdb3 100644 --- a/strings.lisp +++ b/strings.lisp @@ -153,12 +153,16 @@ (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) - (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" -- 2.34.1