From a98fa3abc892b57640d4f4adfadd108e30128488 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 13 Jan 1991 13:48:12 +0000 Subject: [PATCH] Fixed VALUES IR1 optimizer to do the REOPTIMIZE-CONTINUATION before PROPAGATE-TO-ARGS so that we know that the first arg won't be deleted yet. --- compiler/ir1opt.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 7503784f8..a3200e546 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.lisp @@ -1276,9 +1276,9 @@ (setf (functional-kind fun) :let) (flush-dest (first (basic-combination-args dest))) (unlink-node dest) - (propagate-to-args node fun) (when vals - (reoptimize-continuation (first vals)))) + (reoptimize-continuation (first vals))) + (propagate-to-args node fun)) t))) -- GitLab