From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 5 Feb 2010 17:31:22 +0000 (-0700)
Subject: Add OpenMCL support for #\no-break_space
X-Git-Tag: v5.0.0~13
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=360b8e79c4009b49eeffedad9249ad3227b07ed8

Add OpenMCL support for #\no-break_space
---

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 3e29911..0ead522 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -18,14 +18,16 @@
 
 (defvar +whitespace-chars+
   '(#\space #\tab #\newline #\return
-    ;; Tested: sbcl unicode, allegrocl, and clisp use #\no-break_space
+    ;; Tested: sbcl unicode, allegrocl, openmcl,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
-    #+(or (and sbcl sb-unicode) (and allegro ics) clisp) #\no-break_space
+    #+(or (and sbcl sb-unicode) (and allegro ics) (and clisp i18n)
+       (and openmcl openmcl-unicode-strings))
+    #\no-break_space
     )
   "List of whitespace characters for this lisp implementation.")