X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=src%2Fobjects.lisp;h=e9a2024112ec409b26c136a3deda65020ba8ca16;hp=7648e93039cb8d4a71554921c455bb42528daf05;hb=09464c82191ef241c749756bbad5ffaadd8f6e5f;hpb=44a2c6231b0a658e28705d5834549db9e0f1159f;ds=sidebyside

diff --git a/src/objects.lisp b/src/objects.lisp
index 7648e93..e9a2024 100644
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -137,8 +137,7 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated."
   
 (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