1.0.15.31: thread-safe FIND-CLASS -- really this time

[sbcl.git] / src / compiler / compiler-deftype.lisp

diff --git a/src/compiler/compiler-deftype.lisp b/src/compiler/compiler-deftype.lisp
index 322b06b..c4a92a5 100644 (file)
--- a/src/compiler/compiler-deftype.lisp
+++ b/src/compiler/compiler-deftype.lisp
@@ -23,7 +23,7 @@
     (:instance
      (warn "The class ~S is being redefined to be a DEFTYPE." name)
      (undefine-structure (layout-info (classoid-layout (find-classoid name))))
-     (setf (classoid-cell-classoid (find-classoid-cell name)) nil)
+     (setf (classoid-cell-classoid (find-classoid-cell name :create t)) nil)
      (setf (info :type :compiler-layout name) nil)
      (setf (info :type :kind name) :defined))
     (:defined