From f277ab44496eb4536b210a41cfb4a9a48dc2a703 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 16 Aug 1990 19:34:56 +0000
Subject: [PATCH] Deleted old TN-ENVIRONMENT.

---
 compiler/tn.lisp | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/compiler/tn.lisp b/compiler/tn.lisp
index 8ae1c5112..d29b06661 100644
--- a/compiler/tn.lisp
+++ b/compiler/tn.lisp
@@ -514,15 +514,3 @@
 	  (return)))))
   (undefined-value))
 
-
-;;; TN-Environment  --  Interface
-;;;
-;;;    Return some Environment that TN is referenced in.  TN must have at least
-;;; one reference (either read or write.)  Note that some TNs are referenced in
-;;; multiple environments.
-;;;
-(defun tn-environment (tn)
-  (declare (type tn tn))
-  (let ((ref (or (tn-reads tn) (tn-writes tn))))
-    (assert ref)
-    (block-environment (ir2-block-block (vop-block (tn-ref-vop ref))))))
-- 
GitLab