X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Futils.lisp;h=3e29911260ff226b597ae013fb8baac17316323f;hb=feaad96160c29ce55d627745bbb168fa134cb8d0;hp=9a554cb7def4837c9de48eafdc26deefd7eaf503;hpb=fd6226503221a19c3045257f2e47948eea140566;p=clsql.git

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 9a554cb..3e29911 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -18,10 +18,14 @@
 
 (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
+    ;; CMUCL errors when trying to read #\no-break_space
     #+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.")