-(defmethod callback-from-alien-form (form (class ginstance-class) &rest args)
- (declare (ignore args))
- (from-alien-form form class))
-
-(defmethod copy-from-alien-form (location (class ginstance-class) &rest args)
- (declare (ignore location class args))
+(define-type-method copy-from-alien-form ((type ginstance) location)
+ (declare (ignore location type))