Fixed gvalue leakage

diff --git a/glib/gobject.lisp b/glib/gobject.lisp
index dc6bd78a1b09ed22b95f0266b2a442df509d86c9..e21d702d623e672406e7e60657ec132ea9b40c2c 100644 (file)
--- 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))