(defvar +whitespace-chars+
'(#\space #\tab #\newline #\return
- ;; Tested: sbcl, allegrocl, and clisp use #\no-break_space
+ ;; Tested: sbcl unicode, allegrocl, openmcl,clisp use #\no-break_space
;; lispworks uses #\no-break-space
- #+lispworks #\no-break-space
- #-lispworks #\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
+ #+(and lispworks unicode) #\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.")