`(hyperobject::def-lazy-reader ,(name-class subobject)\r
,(name-slot subobject) ,(lookup subobject)\r
,@(lookup-keys subobject)))\r
`(hyperobject::def-lazy-reader ,(name-class subobject)\r
,(name-slot subobject) ,(lookup subobject)\r
,@(lookup-keys subobject)))\r