X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=src%2Fobjects.lisp;h=6c8a5b651c439e3e4be97a45eaf5d0bc989bff76;hb=9ca3cce60961b1fd140467a233700a08e7ef65b1;hp=cdd3882296bdf1b9bd86269a2af63980a20ec838;hpb=a7e4d38b013b1f9dadf6dd4aed438b2da3619f87;p=uffi.git

diff --git a/src/objects.lisp b/src/objects.lisp
index cdd3882..6c8a5b6 100644
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -132,13 +132,11 @@ 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
-  #+lispworks
   ;; lispworks varies whether deref'ing array vs. slot access of a char
   #+lispworks
   `(if (integerp ,obj) ,obj (char-code ,obj)))