r10590: convert to :struct-pointer

[uffi.git] / src / objects.lisp

diff --git a/src/objects.lisp b/src/objects.lisp
index e9a2024112ec409b26c136a3deda65020ba8ca16..6c8a5b651c439e3e4be97a45eaf5d0bc989bff76 100644 (file)
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -132,12 +132,14 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated."
   #+(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)
+  #+(or allegro cmu sbcl scl openmcl) obj
+  ;; 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