Skip to content
Snippets Groups Projects
Commit 2a053fef authored by ram's avatar ram
Browse files

Fixed %COMPILER-DEFSTRUCT to clear any old DEFTYPE expander.

parent 7b1c73bf
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment