Revision: 4609 Author: manuel URL: http://bknr.net/trac/changeset/4609 remove ugly hack U trunk/thirdparty/cl-gd/gd-uffi.lisp Modified: trunk/thirdparty/cl-gd/gd-uffi.lisp =================================================================== --- trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 20:58:03 UTC (rev 4608) +++ trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 21:06:22 UTC (rev 4609) @@ -74,12 +74,6 @@ (cx2 :int) (cy2 :int)) -;; XXX evil hack -#+(and :openmcl :64-bit-target) -(defmethod cffi::foreign-type-alignment ((type uffi-array-type)) - 4) - - (def-type pixels-array (* (* :unsigned-char))) (def-type pixels-row (* :unsigned-char)) (def-type t-pixels-array (* (* :int)))