From: Dmitry Kalyanov Date: Thu, 6 Aug 2009 07:32:44 +0000 (+0400) Subject: glib: Fix memory overwrite in translate-to-foreign for variant cstructures X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a4ef7d75a39821a90d7a872e2b840140adb15216;p=cl-gtk2.git glib: Fix memory overwrite in translate-to-foreign for variant cstructures --- diff --git a/glib/gobject.boxed.lisp b/glib/gobject.boxed.lisp index 61eacee..301e175 100644 --- a/glib/gobject.boxed.lisp +++ b/glib/gobject.boxed.lisp @@ -453,7 +453,7 @@ (null-pointer) (let* ((type (g-boxed-foreign-info foreign-type)) (cstruct-description (decide-native-type type proxy))) - (with-foreign-object (native-structure (generated-cstruct-name + (with-foreign-object (native-structure (generated-cunion-name (var-structure-name (g-boxed-variant-cstruct-info-root type)))) (copy-slots-to-native proxy native-structure cstruct-description)