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