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