X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcontrol.lisp;h=76390e433611f67dd613fcbe57be988d4fbea370;hb=20748f2dd7965dcd1446a1cb27e5a5af18a0e5bb;hp=3d96ee6a25f4a048b6acfcdf8e22c1b30c12623d;hpb=0cfad881b88e03971a2b3ef0c0c0fc2e5f4f1bc8;p=sbcl.git

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 3d96ee6..76390e4 100644
--- 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