From faabfe6d73b01f4d6880f22182978d822bf55a56 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Tue, 1 Apr 2003 08:47:24 +0000 Subject: [PATCH] 0.pre8.22: Add call for reoptimization after MV-BIND -> LET conversion. --- src/compiler/ir1opt.lisp | 3 ++- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp index 62b0b1f..8607e68 100644 --- a/src/compiler/ir1opt.lisp +++ b/src/compiler/ir1opt.lisp @@ -1704,7 +1704,8 @@ (unlink-node call) (when vals (reoptimize-continuation (first vals))) - (propagate-to-args use fun)) + (propagate-to-args use fun) + (reoptimize-call use)) t))) ;;; If we see: diff --git a/version.lisp-expr b/version.lisp-expr index 4f2e262..9b78397 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.pre8.21" +"0.pre8.22" -- 1.7.10.4