-(defmethod from-alien-form (location (class ginterface-class) &rest args)
- (declare (ignore class args))
- (from-alien-form location 'gobject))
+(define-type-method from-alien-form ((type ginterface) location)
+ (declare (ignore type))
+ (from-alien-form 'gobject location))