Skip to content
Snippets Groups Projects
Commit 4338298d authored by ram's avatar ram
Browse files

In %COMPILER-DEFSTRUCT, made the structure copier and predicate at least

be recognized as defined functions, even if we can't easily give them
the correct type (becase the type system isn't in the cold load yet.)
parent 822276f5
No related branches found
No related tags found
No related merge requests found
......@@ -202,6 +202,16 @@
(pushnew (dd-name info)
(dd-included-by (info type structure-info inc))))
;;; ### Should declare arg/result types.
(let ((copier (dd-copier info)))
(when copier
(define-function-name copier)))
;;; ### Should make a known type predicate.
(let ((predicate (dd-predicate info)))
(when predicate
(define-function-name predicate)))
(dolist (slot (dd-slots info))
(let ((fun (dsd-accessor slot)))
(define-function-name fun)
......
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