(let ((classoid (find-classoid type nil)))
(and classoid
(typep (layout-info
(classoid-layout classoid))
'defstruct-description)))))
(let ((classoid (find-classoid type nil)))
(and classoid
(typep (layout-info
(classoid-layout classoid))
'defstruct-description)))))