X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=glib%2Fgobject.boxed.lisp;h=c1c9925d404a326de6acf0b22fd1d65d2f528a7b;hb=2da8ec51c87e16120d62969eb2468563e8caecef;hp=82023d4d81a1c45e85a326dd5ed5daa1b9f5bd06;hpb=f5db9ba8c281b54fc5dde3d3bb024a0f86c77ec3;p=cl-gtk2.git

diff --git a/glib/gobject.boxed.lisp b/glib/gobject.boxed.lisp
index 82023d4..c1c9925 100644
--- a/glib/gobject.boxed.lisp
+++ b/glib/gobject.boxed.lisp
@@ -38,11 +38,11 @@
 #+nil(defmethod boxed-copy-fn :before (type-info native)
   (format t "(boxed-copy-fn ~A ~A)~%" (g-boxed-info-name type-info) native))
 
-#+nil(defgeneric boxed-free-fn (type-info native)
+(defgeneric boxed-free-fn (type-info native)
   (:method (type-info native)
     (g-boxed-free (g-boxed-info-g-type type-info) native)))
 
-(defmethod boxed-free-fn :before (type-info native)
+#+nil(defmethod boxed-free-fn :before (type-info native)
   (format t "(boxed-free-fn ~A ~A)~%" (g-boxed-info-name type-info) native))
 
 (defmethod has-callback-cleanup ((type g-boxed-foreign-type))