(setf (find-classoid name) nil))
(when (or (eq *boot-state* 'complete)
(eq *boot-state* 'braid))
(setf (find-classoid name) nil))
(when (or (eq *boot-state* 'complete)
(eq *boot-state* 'braid))
(setf (find-class-cell-predicate cell)
(fdefinition (class-predicate-name new-value))))
(update-ctors 'setf-find-class :class new-value :name name))
(setf (find-class-cell-predicate cell)
(fdefinition (class-predicate-name new-value))))
(update-ctors 'setf-find-class :class new-value :name name))