chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
68093e2
)
Fixed gvalue leakage
author
espen
<espen>
Thu, 28 Oct 2004 09:34:35 +0000
(09:34 +0000)
committer
espen
<espen>
Thu, 28 Oct 2004 09:34:35 +0000
(09:34 +0000)
glib/gobject.lisp
patch
|
blob
|
blame
|
history
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
;; 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.1
3 2004-10-27 14:58:59
espen Exp $
+;; $Id: gobject.lisp,v 1.1
4 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))