From 04ea78ee113e507c30a66cdc7a5b0984c4d5f479 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Fri, 5 Feb 2010 10:08:10 -0700 Subject: [PATCH] Conditionalize read of #\no-break_space for non-unicode SBCL and non-ics Allegro. --- ChangeLog | 6 ++++++ sql/utils.lisp | 7 +++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 22dc41e..8abf423 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2010-02-05 Kevin Rosenberg + * 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 * 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.") -- 2.34.1