diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp index e6672c77ef7c86cfcfdd9e8d547bbb32743cabed..373e6a8cd9880e80f8aa91d61913e867ee42634f 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))) ;;