diff --git a/compiler/life.lisp b/compiler/life.lisp index 78637dc85d528ea759b51c13189b63aa449450a5..ea8c134dd0b8541f4d467aced92e867b3c570240 100644 --- a/compiler/life.lisp +++ b/compiler/life.lisp @@ -644,7 +644,8 @@ (do-live-tns (tn ss block) (unless (eq (tn-kind tn) :component) (force-tn-to-stack tn) - (convert-to-environment-tn tn))))))) + (unless (eq (tn-kind tn) :environment) + (convert-to-environment-tn tn)))))))) (do ((ref (vop-refs vop) (tn-ref-next-ref ref))) ((null ref))