Mapped lisp type gclosure to foreign type GClosure

diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp
index 4cb9113ffe69fc82e0ceec308043f4726c3b23ee..4a487775e35c3c225ee9f5202b06377ac1b7250d 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.
 
 ;; 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")
 
 
 (in-package "GLIB")
 


@@ -244,6 +244,7 @@ (defbinding signal-handler-is-connected-p () boolean
   (handler-id unsigned-int))
 
 (deftype gclosure () 'pointer)
   (handler-id unsigned-int))
 
 (deftype gclosure () 'pointer)

+(register-type 'gclosure "GClosure")

 
 (defbinding (callback-closure-new "clg_callback_closure_new") () gclosure
   (callback-id unsigned-int) 
 
 (defbinding (callback-closure-new "clg_callback_closure_new") () gclosure
   (callback-id unsigned-int)