Fixed gvalue leakage

diff --git a/glib/gobject.lisp b/glib/gobject.lisp
index e4a8bd596ab6bdab3698059f08e067e243a845e8..f5d2a43a70738bf2cf8a348a9c6e64ae8ff95262 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
 
 ;; 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")
 
 
 (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))
      (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))
 
 
   (apply #'call-next-method object initargs))