+#+openmcl
+(defmacro def-struct (name &rest fields)
+ `(ccl::def-foreign-type nil
+ (:struct ,name ,@(process-struct-fields name fields nil))))
+
+#+openmcl
+(defmacro def-union (name &rest fields)
+ `(ccl::def-foreign-type nil
+ (:union ,name ,@(process-struct-fields name fields nil))))
+