(with-syntax (((type-id ...) (field-types #'(field-spec ...)))
((field-name ...) (field-names #'(field-spec ...)))
(((getter getter-id) ...) (field-getters #'(field-spec ...)))
(with-syntax (((type-id ...) (field-types #'(field-spec ...)))
((field-name ...) (field-names #'(field-spec ...)))
(((getter getter-id) ...) (field-getters #'(field-spec ...)))