X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=a9c1694229308cfebd1cd361a6285a289cbad0a6;hb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;hp=c8759f9f682b832baa747d0c3f3a01dc809cd3e0;hpb=20748f2dd7965dcd1446a1cb27e5a5af18a0e5bb;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index c8759f9..a9c1694 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -164,9 +164,9 @@
   (unless (gethash fun *seen-functions*)
     (barf "unseen function ~S in ~S" fun where)))
 
-;;; In a lambda, check that the associated nodes are in seen blocks. In an
-;;; optional dispatch, check that the entry points were seen. If the function
-;;; is deleted, ignore it.
+;;; In a CLAMBDA, check that the associated nodes are in seen blocks.
+;;; In an OPTIONAL-DISPATCH, check that the entry points were seen. If
+;;; the function is deleted, ignore it.
 (defun check-function-stuff (functional)
   (ecase (functional-kind functional)
     (:external
@@ -830,10 +830,7 @@
 	   (closure (ir2-physenv-environment 2env))
 	   (pc (ir2-physenv-return-pc-pass 2env))
 	   (fp (ir2-physenv-old-fp 2env))
-	   (2block (block-info
-		    (node-block
-		     (lambda-bind
-		      (physenv-function env))))))
+	   (2block (block-info (lambda-block (physenv-lambda env)))))
       (do ((conf (ir2-block-global-tns 2block)
 		 (global-conflicts-next conf)))
 	  ((null conf))