(push field-obj fields)
(loop for (k v) in `((:type ,type) (:reader ,reader) (:writer ,writer)
(:accessor ,accessor) (:initform ,initform)
(push field-obj fields)
(loop for (k v) in `((:type ,type) (:reader ,reader) (:writer ,writer)
(:accessor ,accessor) (:initform ,initform)