diff --git a/compiler/life.lisp b/compiler/life.lisp index 730060e367b07375b3892ec4b1131be82f8d47d4..fdc8f3b3e714f7b6abf6e6c752c902bafbc3b592 100644 --- a/compiler/life.lisp +++ b/compiler/life.lisp @@ -648,7 +648,7 @@ (dolist (tn save-set) (force-tn-to-stack tn) (convert-to-environment-tn tn))) - ((t) + ((t :compute-only) (setf (first (vop-codegen-info vop)) save-set)))))) (do ((ref (vop-refs vop) (tn-ref-next-ref ref)))