Skip to content
Snippets Groups Projects
Commit 803efef8 authored by ram's avatar ram
Browse files

In %COMPILER-DEFSTRUCT, added an explicit check for an included type being

undefined.  Removed a duplicate version of the code that added onto the
DD-INCLUDED-BY.
parent 764152b0
No related branches found
No related tags found
No related merge requests found
...@@ -187,7 +187,11 @@ ...@@ -187,7 +187,11 @@
(let ((name (dd-name info))) (let ((name (dd-name info)))
(dolist (inc (dd-includes info)) (dolist (inc (dd-includes info))
(pushnew name (dd-included-by (info type structure-info inc)))) (let ((info (info type structure-info inc)))
(unless info
(error "Structure type ~S is included by ~S but not defined."
inc name))
(pushnew name (dd-included-by info))))
(let ((old (info type structure-info name))) (let ((old (info type structure-info name)))
(when old (when old
...@@ -198,10 +202,6 @@ ...@@ -198,10 +202,6 @@
(when (info type expander name) (when (info type expander name)
(setf (info type expander name) nil))) (setf (info type expander name) nil)))
(dolist (inc (dd-includes info))
(pushnew (dd-name info)
(dd-included-by (info type structure-info inc))))
;;; ### Should declare arg/result types. ;;; ### Should declare arg/result types.
(let ((copier (dd-copier info))) (let ((copier (dd-copier info)))
(when copier (when copier
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment