From 360b8e79c4009b49eeffedad9249ad3227b07ed8 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Fri, 5 Feb 2010 10:31:22 -0700 Subject: [PATCH] Add OpenMCL support for #\no-break_space --- sql/utils.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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.") -- 2.34.1