master: Restore test case.

The branch "master" has been updated in SBCL:
       via  6125836b9de5c128d2e9eb0f6205cf0a7c27fcc2 (commit)
      from  b72c50c389e5c5c5f6e3fe0a4a9aaaf335a290a3 (commit)

- Log -----------------------------------------------------------------
commit 6125836b9de5c128d2e9eb0f6205cf0a7c27fcc2
Author: Charles Zhang <[email protected]>
Date:   Tue Aug 11 01:15:06 2026 +0200

    Restore test case.
    
    Which got fat-fingered and swallowed up in the last diff.
---
 tests/compiler.pure.lisp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index e3fb083a7..f09e6787c 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -6441,3 +6441,19 @@
           (unless (equal from-do from-labels)
             (error "~S: DO derives ~S, LABELS derives ~S"
                    step from-do from-labels)))))))
+
+(with-test (:name (:assignment-convert :lp2162990))
+  (checked-compile-and-assert ()
+    `(lambda (a)
+       (block done
+         (let ((done (lambda (&rest values) (return-from done (values-list values))))
+               (l (lambda ())))
+           (flet ((c (f)
+                    (funcall f)))
+             (declare (inline c))
+             (if a
+                 (c l)
+                 (c l)))
+           (funcall done nil))))
+    ((t) nil)
+    ((nil) nil)))

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


hooks/post-receive
-- 
SBCL