X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcompiler-deftype.lisp;h=c4a92a5c8c2111978cd00f2293209579a1ba366f;hb=a572ab7de4266dec958d50612a8376df6bb45226;hp=2a1ddce154703376bcca9eb0bc2dd9bdaf703ba0;hpb=2d3cb6dba6461e98744eca2a1df4f770cea468ca;p=sbcl.git diff --git a/src/compiler/compiler-deftype.lisp b/src/compiler/compiler-deftype.lisp index 2a1ddce..c4a92a5 100644 --- a/src/compiler/compiler-deftype.lisp +++ b/src/compiler/compiler-deftype.lisp @@ -14,6 +14,8 @@ (/show0 "compiler-deftype.lisp 14") (defun %compiler-deftype (name expander &optional doc) + (with-single-package-locked-error + (:symbol name "defining ~A as a type specifier")) (ecase (info :type :kind name) (:primitive (when *type-system-initialized* @@ -21,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