1.0.22.22: (SETF FIND-CLASSOID) to drop DEFTYPE lambda-lists and source-locations

[sbcl.git] / src / code / class.lisp

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 6639a3a..901713e 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -765,7 +765,9 @@
              (error "Cannot redefine standard type ~S." name))
             (:defined
              (warn "Redefining DEFTYPE type to be a class: ~S" name)
-                (setf (info :type :expander name) nil)))
+                (setf (info :type :expander name) nil
+                      (info :type :lambda-list name) nil
+                      (info :type :source-location name) nil)))
 
           (remhash name table)
           (%note-type-defined name)