X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.type-info.signals.lisp;h=22c1e3a74889b0823c44a6d9864acc41f3681f96;hb=8db173e3df82074b8ca96d00304c4e63b499f598;hp=b75be0dad5876b2e419ba42e3c350605f94b5dbd;hpb=afef4514bd3b67114bc3f62c3109b14a4334142b;p=cl-gtk2.git

diff --git a/glib/gobject.type-info.signals.lisp b/glib/gobject.type-info.signals.lisp
index b75be0d..22c1e3a 100644
--- a/glib/gobject.type-info.signals.lisp
+++ b/glib/gobject.type-info.signals.lisp
@@ -1,4 +1,4 @@
-(in-package :gobject.type-info)
+(in-package :gobject)
 
 (defstruct signal-info
   id
@@ -47,7 +47,7 @@
         signal-info))))
 
 (defun type-signals (type &key include-inherited)
-  (unless (= (g-type-numeric type) +g-type-invalid+)
+  (unless (g-type= type +g-type-invalid+)
     (let ((signals (with-foreign-object (n-ids :uint)
                      (with-unwind (ids (g-signal-list-ids type n-ids) g-free)
                        (iter (for i from 0 below (mem-ref n-ids :uint))