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