X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Futils.lisp;h=92c96fdd557501cbcf455d8bd730924ab337a7ce;hb=04ea78ee113e507c30a66cdc7a5b0984c4d5f479;hp=9a554cb7def4837c9de48eafdc26deefd7eaf503;hpb=4a2e3a71a1ce79482ba704ec815013de2c986274;p=clsql.git 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.")