0.pre7.86.flaky7.2:

[sbcl.git] / src / compiler / control.lisp

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 3d96ee6..76390e4 100644 (file)
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -59,8 +59,7 @@
     (cond
      ((and pred
           (not (physenv-nlx-info env))
-          (not (eq (node-block (lambda-bind (block-home-lambda block)))
-                   block)))
+          (not (eq (lambda-block (block-home-lambda block)) block)))
       (let ((current pred)
            (current-num (block-number pred)))
        (block DONE