(:instance
(warn "The class ~S is being redefined to be a DEFTYPE." name)
(undefine-structure (layout-info (classoid-layout (find-classoid name))))
(:instance
(warn "The class ~S is being redefined to be a DEFTYPE." name)
(undefine-structure (layout-info (classoid-layout (find-classoid name))))