Fix issuing warning in gobject metaclass if gtype is not available

[cl-gtk2.git] / glib / gobject.meta.lisp

diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp
index adcb9d8..120a958 100644 (file)
--- a/glib/gobject.meta.lisp
+++ b/glib/gobject.meta.lisp
@@ -33,7 +33,7 @@
                       (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)))))