From 93b0526b4210769d833db779f9ec75c030d87f2f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 16 May 1990 10:58:32 +0000 Subject: [PATCH] Fixed closure TN allocation to allocate *any-primitive-type* when the variable is indirect. --- compiler/gtn.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/gtn.lisp b/compiler/gtn.lisp index 5c52966c2..1223e1bd4 100644 --- a/compiler/gtn.lisp +++ b/compiler/gtn.lisp @@ -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))) -- GitLab