X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/83f129a71e7c425f198d0a1f53b8030ad7ed139e..21f0cf783698085e344bc7e6bae1c9b3808a4835:/glib/gobject.lisp?ds=sidebyside

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))