+(defmethod callback-from-alien-form (form (class struct-class) &rest args)
+ `(ensure-proxy-instance ',(class-name class) ,form :weak t))
+
+(defmethod callback-cleanup-form (form (class struct-class) &rest args)
+ (declare (ignore class))
+ `(invalidate-instance ,form))
+