Conditionalize read of #\no-break_space for non-unicode SBCL and non-ics Allegro.

diff --git a/ChangeLog b/ChangeLog
index 22dc41ebe0aa72df40d260e970d8037cfcf2eae8..8abf4232af5885025eb1723e42bf29626e827d4b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2010-02-05  Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/utils.lisp: Reading #\no-break_space causes an
+       error for non-unicode SBCL. Conditionalize read of
+       #\no-break_space for non-unicode SBCL and 8-bit string
+       Allegro.
+
 2010-02-03  Kevin Rosenberg <kevin@rosenberg.net>
        * tests/test-init.lisp: Add *test-report-width* variable
        and word-wrap skipped test reason field.

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 9a554cb7def4837c9de48eafdc26deefd7eaf503..92c96fdd557501cbcf455d8bd730924ab337a7ce 100644 (file)
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -18,10 +18,13 @@
 
 (defvar +whitespace-chars+
   '(#\space #\tab #\newline #\return
-    ;; Tested: sbcl, allegrocl, and clisp use #\no-break_space
+    ;; Tested: sbcl unicode, allegrocl, and clisp use #\no-break_space
     ;; lispworks uses #\no-break-space
+    ;; sbcl non-unicode doesn't support no break space
+    ;; AllegroCL 8-bit strings don't fail on reading #\no-break_space,
+    ;; but can't represent such a character
     #+lispworks #\no-break-space
-    #-lispworks #\no-break_space
+    #+(or (and sbcl sb-unicode) (and allegro ics) clisp) #\no-break_space
     )
   "List of whitespace characters for this lisp implementation.")