X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fobjects.lisp;h=42ab3fc334fe0b3266fe477f46a19df2dcdcf3f6;hb=25845009fdd5e3d2fbb875027d71fdd47d76ea13;hp=58b4da622961fc5bcfc65df7d2d0261706e48d19;hpb=5d9a72c1d2b908bcf0624b833d853855c837425d;p=uffi.git diff --git a/src/objects.lisp b/src/objects.lisp index 58b4da6..42ab3fc 100644 --- a/src/objects.lisp +++ b/src/objects.lisp @@ -232,7 +232,7 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." ,pointer (* ,(convert-from-uffi-type (eval type) :type))))) ,@body)) -#+allegro +#+(or allegro openmcl) (defmacro with-cast-pointer ((binding-name pointer type) &body body) (declare (ignore type)) `(let ((,binding-name ,pointer))