From 2a053feff455e242dc041c257ebe52ab6f94d92e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 8 Feb 1990 12:51:13 +0000 Subject: [PATCH] Fixed %COMPILER-DEFSTRUCT to clear any old DEFTYPE expander. --- compiler/proclaim.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/proclaim.lisp b/compiler/proclaim.lisp index 2a86bc468..01f44f4de 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) -- GitLab