From: espen <espen>
Date: Thu, 28 Oct 2004 09:34:35 +0000 (+0000)
Subject: Fixed gvalue leakage
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/a4b3ec58301d5807426867d0ecc0913e693121eb

Fixed gvalue leakage
---

diff --git a/glib/gobject.lisp b/glib/gobject.lisp
index dc6bd78..e21d702 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 @@ (defmethod initialize-instance ((object gobject) &rest initargs)
      (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))