From e68dcc0ab32348de5d495bb357d147439654ec00 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 8 Aug 2009 02:24:31 +0400 Subject: [PATCH 1/1] glib: Fixed boxed-related-symbols for variant structures --- glib/gobject.boxed.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/glib/gobject.boxed.lisp b/glib/gobject.boxed.lisp index 6ab321c..218112a 100644 --- a/glib/gobject.boxed.lisp +++ b/glib/gobject.boxed.lisp @@ -562,7 +562,8 @@ (iter (for var-struct in (all-structures (g-boxed-variant-cstruct-info-root info))) (for s-name = (var-structure-name var-struct)) (for cstruct-description = (var-structure-resulting-cstruct-description var-struct)) - (appending (append (list (intern (format nil "MAKE-~A" (symbol-name s-name))) + (appending (append (list s-name) + (list (intern (format nil "MAKE-~A" (symbol-name s-name))) (intern (format nil "COPY-~A" (symbol-name s-name)))) (iter (for slot in (cstruct-description-slots cstruct-description)) (for slot-name = (cstruct-slot-description-name slot)) -- 1.7.10.4