-(defmethod callback-from-alien-form (form (type t) &rest args)
- (apply #'from-alien-form form type args))
-
-(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))