(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
+ #+(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.")