(gobject-class-direct-g-type-name class)
(class-name class)
(gtype-name type))))))
- (unless (gtype (gobject-class-direct-g-type-name class))
+ (when (zerop (gtype-id (gtype (gobject-class-direct-g-type-name class))))
(warn "Declared GType name '~A' for class '~A' is invalid (g_type_name returned 0)"
(gobject-class-direct-g-type-name class) (class-name class)))))
(defmethod make-instance ((class gobject-class) &rest initargs &key pointer)
(log-for :subclass "(make-instance ~A ~{~A~^ ~})~%" class initargs)
+ (ensure-finalized class)
(let ((*currently-making-object-p* t))
(if pointer
(progn