From e1b338e9ce28202941abf73a518408cb8f1e976b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 13 Feb 1990 15:01:49 +0000 Subject: [PATCH] Made VOP-INFO-SAVE-P :COMPUTE-ONLY compute the save set the same as T. --- compiler/life.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/life.lisp b/compiler/life.lisp index 730060e36..fdc8f3b3e 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))) -- GitLab