From 7577a1f5591253e719ddfc7c39329c4b2331c7e8 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Fri, 28 Aug 2009 22:02:24 +0400 Subject: [PATCH] Added defgenerics for boxed type functions --- glib/gobject.boxed.lisp | 3 +++ 1 file changed, 3 insertions(+) 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) -- 1.7.10.4