From: Dmitry Kalyanov Date: Wed, 25 Feb 2009 22:20:16 +0000 (+0300) Subject: Add refcount for found g-boxed-ref's X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1e321fb41ff4ce050eea037938dc0ec20e393a54;p=cl-gtk2.git Add refcount for found g-boxed-ref's --- diff --git a/glib/gobject.foreign-gboxed.lisp b/glib/gobject.foreign-gboxed.lisp index 7f83a09..994e759 100644 --- a/glib/gobject.foreign-gboxed.lisp +++ b/glib/gobject.foreign-gboxed.lisp @@ -274,6 +274,7 @@ (with-recursive-lock-held (*g-boxed-gc-lock*) (or (aprog1 (gethash (pointer-address pointer) *known-boxed-refs*) (when it (debugf "Boxed-ref for ~A is found (~A)~%" pointer it)) + (when it (incf (gethash (pointer-address pointer) *boxed-ref-count*))) it) (aprog1 (make-instance name :pointer pointer) (setf (gethash (pointer-address pointer) *boxed-ref-owner*) (g-boxed-ref-owner type))