From: Dmitry Kalyanov Date: Tue, 9 Feb 2010 22:10:32 +0000 (+0300) Subject: Fix issuing warning in gobject metaclass if gtype is not available X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=e15aabd0a9521ae38647375e2c68cd1f71cbbafb Fix issuing warning in gobject metaclass if gtype is not available --- diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp index adcb9d8..120a958 100644 --- 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)))))