From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 5 Feb 2010 17:08:10 +0000 (-0700)
Subject: Conditionalize read of #\no-break_space for non-unicode SBCL and non-ics Allegro.
X-Git-Tag: v5.0.0~15
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=04ea78ee113e507c30a66cdc7a5b0984c4d5f479

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

diff --git a/ChangeLog b/ChangeLog
index 22dc41e..8abf423 100644
--- 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 9a554cb..92c96fd 100644
--- 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.")