(at-init (object) (initialize-gobject-class-g-type object))))
(defmethod finalize-inheritance :after ((class gobject-class))
(at-init (object) (initialize-gobject-class-g-type object))))
(defmethod finalize-inheritance :after ((class gobject-class))
(setf (gobject-class-g-type-name class)
(or (gobject-class-direct-g-type-name class)
(let ((gobject-superclass (iter (for superclass in (class-direct-superclasses class))
(setf (gobject-class-g-type-name class)
(or (gobject-class-direct-g-type-name class)
(let ((gobject-superclass (iter (for superclass in (class-direct-superclasses class))