#+(or (and mcl (not openmcl))) obj
#+(or allegro cmu sbcl scl openmcl) `(code-char ,obj)
;; lispworks varies whether deref'ing array vs. slot access of a char
- #+lispworks
- `(if (characterp ,obj) ,obj (code-char ,obj)))
+ #+lispworks `(if (characterp ,obj) ,obj (code-char ,obj)))
(defmacro ensure-char-integer (obj)
#+(or (and mcl (not openmcl))) `(char-code ,obj)
#+(or allegro cmu sbcl scl openmcl) obj
- #+lispworks
;; lispworks varies whether deref'ing array vs. slot access of a char
#+lispworks
`(if (integerp ,obj) ,obj (char-code ,obj)))