-(defmethod initialize-instance :after ((object gobject-class) &key &allow-other-keys)
- (register-object-type (gobject-class-g-type-name object) (class-name object))
- (if (gobject-class-g-type-initializer object)
- (let* ((initializer-fn-ptr (foreign-symbol-pointer (gobject-class-g-type-initializer object)))
+(defun initialize-gobject-class-g-type (class)
+ (if (gobject-class-g-type-initializer class)
+ (let* ((initializer-fn-ptr (foreign-symbol-pointer (gobject-class-g-type-initializer class)))