From: Dmitry Kalyanov Date: Fri, 7 Aug 2009 22:24:31 +0000 (+0400) Subject: glib: Fixed boxed-related-symbols for variant structures X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e68dcc0ab32348de5d495bb357d147439654ec00;p=cl-gtk2.git glib: Fixed boxed-related-symbols for variant structures --- 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))