',name
(lambda (,classvar)
(make-sod-slot ,classvar ,name (c-type ,type)
',name
(lambda (,classvar)
(make-sod-slot ,classvar ,name (c-type ,type)
(tail (ichain-tail ichain)))
(list (sod-class-nickname head)
(sod-class-nickname tail)
(tail (ichain-tail ichain)))
(list (sod-class-nickname head)
(sod-class-nickname tail)