From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Fri, 28 Aug 2009 18:02:24 +0000 (+0400)
Subject: Added defgenerics for boxed type functions
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7577a1f5591253e719ddfc7c39329c4b2331c7e8;p=cl-gtk2.git

Added defgenerics for boxed type functions
---

diff --git a/glib/gobject.boxed.lisp b/glib/gobject.boxed.lisp
index 34542b2..5942250 100644
--- a/glib/gobject.boxed.lisp
+++ b/glib/gobject.boxed.lisp
@@ -45,6 +45,9 @@
 #+nil(defmethod boxed-free-fn :before (type-info native)
   (format t "(boxed-free-fn ~A ~A)~%" (g-boxed-info-name type-info) native))
 
+(defgeneric has-callback-cleanup (foreign-type))
+(defgeneric cleanup-translated-object-for-callback (foreign-type converted-object native-object))
+
 (defmethod has-callback-cleanup ((type g-boxed-foreign-type))
   t)