From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 12 Sep 2009 21:54:57 +0000 (+0400)
Subject: Properly export gobject:disconnect-signal
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=052b2e718c7c62711b383268ac69f308d0f59165;p=cl-gtk2.git

Properly export gobject:disconnect-signal
---

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index 5649e74..92401a5 100644
--- 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
--- 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)