Mapped lisp type gclosure to foreign type GClosure

diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp
index b6158db54019b088c531495da22e444389527140..a6bba969970284dc7114601b16e490f57ca66b4e 100644 (file)
--- a/glib/gcallback.lisp
+++ b/glib/gcallback.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gcallback.lisp,v 1.24 2005/04/23 16:48:50 espen Exp $
+;; $Id: gcallback.lisp,v 1.25 2005/04/24 13:25:31 espen Exp $
 
 (in-package "GLIB")
 
@@ -244,6 +244,7 @@ (defbinding signal-handler-is-connected-p () boolean
   (handler-id unsigned-int))
 
 (deftype gclosure () 'pointer)
+(register-type 'gclosure "GClosure")
 
 (defbinding (callback-closure-new "clg_callback_closure_new") () gclosure
   (callback-id unsigned-int)