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