master: Fix test.

The branch "master" has been updated in SBCL:
       via  a56065fe38daa5f68d77c7db33263b874411c3a3 (commit)
      from  629a0df18206ff73e400289f86ac2d328d2f91b0 (commit)

- Log -----------------------------------------------------------------
commit a56065fe38daa5f68d77c7db33263b874411c3a3
Author: Charles Zhang <[email protected]>
Date:   Wed Jul 29 23:01:21 2026 +0200

    Fix test.
---
 tests/compiler-ir.pure.lisp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/tests/compiler-ir.pure.lisp b/tests/compiler-ir.pure.lisp
index 9fd1abfef..4cf774ae8 100644
--- a/tests/compiler-ir.pure.lisp
+++ b/tests/compiler-ir.pure.lisp
@@ -328,17 +328,19 @@
                            (h (y)
                              (* y y)))
                     (+ 2
-                       (h 4)
-                       (if (= b 5)
-                           (fm x x)
-                           (fm b y)))))
+                       (cond ((= b 5)
+                              (fm x x))
+                             ((= (mod b 10) 9)
+                              (h x))
+                             (t
+                              (fm b y))))))
                 (lambda (component)
                   (dolist (lambda (sb-c::component-lambdas component))
                     (dolist (lambda-let (sb-c::lambda-lets lambda))
                       (when (sb-c::functional-kind-eq lambda-let sb-c::assignment)
                         (push lambda-let converted))))))))
-      (assert (= (funcall fun 1 2 3 t) 18))
-      (assert (= (funcall fun 1 2 3 nil) 99))
+      (assert (= (funcall fun 1 2 3 t) 2))
+      (assert (= (funcall fun 1 2 3 nil) 83))
       (assert (= (length converted) 4))))) ; F, G, FM, H
 
 ;;; The example in 5.2 of Fluet and Weeks "Contification via

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL