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 (file)
--- 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 (file)
--- 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"