From d73522c83962c7fe2351e89dc9d0734280cec3a1 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 16 Aug 1990 16:33:46 +0000
Subject: [PATCH] Flushed special-casing of :ENVIRONMENT TNs in DO-LIVE-TNS.

---
 compiler/vmdef.lisp | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp
index e6672c77e..373e6a8cd 100644
--- a/compiler/vmdef.lisp
+++ b/compiler/vmdef.lisp
@@ -2367,12 +2367,6 @@
 			      (block-component
 			       (ir2-block-block ,n-block)))))
 	     (,n-bod ,tn-var))
-	   ;;
-	   ;; Do environment-live TNs.
-	   (dolist (,tn-var (ir2-environment-live-tns
-			     (environment-info
-			      (ir2-block-environment ,n-block))))
-	     (,n-bod ,tn-var))
 	   
 	   (let ((,ltns (ir2-block-local-tns ,n-block)))
 	     ;;
-- 
GitLab