projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6486e75
)
glib: Now really commented out debugging code
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 8 Aug 2009 12:18:39 +0000
(16:18 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 8 Aug 2009 12:18:46 +0000
(16:18 +0400)
glib/gobject.boxed.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.boxed.lisp
b/glib/gobject.boxed.lisp
index
82023d4
..
c1c9925
100644
(file)
--- 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(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)))
(: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))
(format t "(boxed-free-fn ~A ~A)~%" (g-boxed-info-name type-info) native))
(defmethod has-callback-cleanup ((type g-boxed-foreign-type))