Properly export gobject:disconnect-signal

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index 5649e74..92401a5 100644 (file)
--- a/glib/gobject.package.lisp
+++ b/glib/gobject.package.lisp
@@ -190,7 +190,8 @@
            #:create-signal-handler-closure
            #:save-handler-to-object
            #:retrieve-handler-from-object
-           #:delete-handler-from-object)
+           #:delete-handler-from-object
+           #:disconnect-signal)
   (:documentation
    "CL-GTK2-GOBJECT is a binding to GObject type system.
 For information on GObject, see its @a[http://library.gnome.org/devel/gobject/stable/]{documentation}.

diff --git a/glib/gobject.signals.lisp b/glib/gobject.signals.lisp
index 6935451..46777c0 100644 (file)
--- a/glib/gobject.signals.lisp
+++ b/glib/gobject.signals.lisp
@@ -132,5 +132,3 @@ If @code{after} is true, then the function will be called after the default hand
 (defcfun (disconnect-signal "g_signal_handler_disconnect") :void
   (object g-object)
   (handler-id :ulong))
-
-(export 'disconnect-signal)