(defmacro ensure-char-integer (obj)
#+(or (and mcl (not openmcl))) `(char-code ,obj)
- #+(or allegro cmu sbcl scl openmcl) obj
- `(if (characterp ,obj) (char-code ,obj) ,obj))
+ #+(or allegro cmu sbcl scl openmcl) obj)
(defmacro ensure-char-storable (obj)
#+(or lispworks (and mcl (not openmcl))) obj