X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fobjects.lisp;h=cdd3882296bdf1b9bd86269a2af63980a20ec838;hb=bbe3653207a655c6fc596474e75092fd0affd0bd;hp=e9a2024112ec409b26c136a3deda65020ba8ca16;hpb=09464c82191ef241c749756bbad5ffaadd8f6e5f;p=uffi.git

diff --git a/src/objects.lisp b/src/objects.lisp
index e9a2024..cdd3882 100644
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -137,7 +137,11 @@ 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)
+  #+(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)))
 
 (defmacro ensure-char-storable (obj)
   #+(or lispworks (and mcl (not openmcl))) obj