From: Alexey Dejneka <adejneka@comail.ru>
Date: Tue, 1 Apr 2003 08:47:24 +0000 (+0000)
Subject: 0.pre8.22:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=faabfe6d73b01f4d6880f22182978d822bf55a56;p=sbcl.git

0.pre8.22:
        Add call for reoptimization after MV-BIND -> LET conversion.
---

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"