From f9658511925f06992c9ff34cdc1f9f0b35658f72 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 8 Aug 2009 16:18:39 +0400 Subject: [PATCH] glib: Now really commented out debugging code --- glib/gobject.boxed.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4