+(define-type-method alien-type ((type ginterface))
+ (declare (ignore type))
+ (alien-type 'gobject))
+
+(define-type-method size-of ((type ginterface))
+ (declare (ignore type))
+ (size-of 'gobject))
+
+(define-type-method from-alien-form ((type ginterface) location)
+ (declare (ignore type))
+ (from-alien-form 'gobject location))
+
+(define-type-method from-alien-function ((type ginterface))
+ (declare (ignore type))
+ (from-alien-function 'gobject))
+
+(define-type-method to-alien-form ((type ginterface) instance)
+ (declare (ignore type))
+ (to-alien-form 'gobject instance))
+
+(define-type-method to-alien-function ((type ginterface))
+ (declare (ignore type))
+ (to-alien-function 'gobject))
+
+(define-type-method reader-function ((type ginterface))
+ (declare (ignore type))
+ (reader-function 'gobject))
+
+(define-type-method writer-function ((type ginterface))
+ (declare (ignore type))
+ (writer-function 'gobject))
+
+(define-type-method destroy-function ((type ginterface))
+ (declare (ignore type))
+ (destroy-function 'gobject))
+
+