Skip to content
Snippets Groups Projects
Commit 93b0526b authored by ram's avatar ram
Browse files

Fixed closure TN allocation to allocate *any-primitive-type* when the

variable is indirect.
parent a1b5f359
No related branches found
No related tags found
No related merge requests found
......@@ -87,7 +87,10 @@
(dolist (thing (environment-closure env))
(let ((ptype (etypecase thing
(lambda-var (primitive-type (leaf-type thing)))
(lambda-var
(if (lambda-var-indirect thing)
*any-primitive-type*
(primitive-type (leaf-type thing))))
(nlx-info *any-primitive-type*))))
(unless xep-p
(args (make-normal-tn ptype)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment