glib: Fixed boxed-related-symbols for variant structures

diff --git a/glib/gobject.boxed.lisp b/glib/gobject.boxed.lisp
index 6ab321c..218112a 100644 (file)
--- 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))