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