From 21f0cf783698085e344bc7e6bae1c9b3808a4835 Mon Sep 17 00:00:00 2001 From: espen Date: Thu, 28 Oct 2004 09:34:35 +0000 Subject: [PATCH] Fixed gvalue leakage --- glib/gobject.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/glib/gobject.lisp b/glib/gobject.lisp index e4a8bd5..f5d2a43 100644 --- a/glib/gobject.lisp +++ b/glib/gobject.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gobject.lisp,v 1.13 2004/10/27 14:58:59 espen Exp $ +;; $Id: gobject.lisp,v 1.14 2004/10/28 09:34:35 espen Exp $ (in-package "GLIB") @@ -53,7 +53,10 @@ (slot-value object 'location) (if (zerop (length names)) (%gobject-new (type-number-of object)) - (%gobject-newvv (type-number-of object) (length names) names values)))) + (%gobject-newvv (type-number-of object) (length names) names values))) + + (mapc #'gvalue-free values)) + (apply #'call-next-method object initargs)) -- 2.11.0