X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.type-info.signals.lisp;h=4c093d67d0333cd0ba1081c680788d11320cb5e3;hb=7bca05f5d857c03b74eafd7c0c85495dfe3330ff;hp=2a1158724a2186cc7e957058cf388d36eb622c60;hpb=02eda5690afca7870d40f4f26b2e1cc3031e3e2f;p=cl-gtk2.git

diff --git a/glib/gobject.type-info.signals.lisp b/glib/gobject.type-info.signals.lisp
index 2a11587..4c093d6 100644
--- a/glib/gobject.type-info.signals.lisp
+++ b/glib/gobject.type-info.signals.lisp
@@ -16,11 +16,11 @@
         (format stream
                 "Signal [#~A] ~A ~A.~A~@[::~A~](~{~A~^, ~})~@[ [~{~A~^, ~}]~]"
                 (signal-info-id instance)
-                (g-type-string (signal-info-return-type instance))
-                (g-type-string (signal-info-owner-type instance))
+                (gtype-name (signal-info-return-type instance))
+                (gtype-name (signal-info-owner-type instance))
                 (signal-info-name instance)
                 (signal-info-detail instance)
-                (mapcar #'g-type-string (signal-info-param-types instance))
+                (mapcar #'gtype-name (signal-info-param-types instance))
                 (signal-info-flags instance)))))
 
 (defun query-signal-info (signal-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))