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

diff --git a/glib/gobject.type-info.signals.lisp b/glib/gobject.type-info.signals.lisp
index 22c1e3a..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)