(slot (deref generations generation) ',slot))
,@(when setfp
`((defun (setf ,(symbolicate "GENERATION-" slot)) (value generation)
(slot (deref generations generation) ',slot))
,@(when setfp
`((defun (setf ,(symbolicate "GENERATION-" slot)) (value generation)