diff --git a/compiler/proclaim.lisp b/compiler/proclaim.lisp index 2a86bc468bf75eca2e1ebc433e451af62c7cb55c..01f44f4de531241f417202ca87bc671784b7a5bb 100644 --- a/compiler/proclaim.lisp +++ b/compiler/proclaim.lisp @@ -194,7 +194,9 @@ (setf (dd-included-by info) (dd-included-by old)))) (setf (info type kind name) :structure) - (setf (info type structure-info name) info)) + (setf (info type structure-info name) info) + (when (info type expander name) + (setf (info type expander name) nil))) (dolist (inc (dd-includes info)) (pushnew (dd-name info)