From e15aabd0a9521ae38647375e2c68cd1f71cbbafb Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Wed, 10 Feb 2010 01:10:32 +0300 Subject: [PATCH] Fix issuing warning in gobject metaclass if gtype is not available --- glib/gobject.meta.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))) -- 1.7.10.4