(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))
(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))
(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))
(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))