X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcontrol.lisp;h=5df3e2f51fddcf7bbf64baf33d6e942c74d495b3;hb=503a50f07740b52908f630b0492cf56556f1a792;hp=3d96ee6a25f4a048b6acfcdf8e22c1b30c12623d;hpb=7fd2eb4b1bc68e8aaec233c4a39bdfc40225bda2;p=sbcl.git

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 3d96ee6..5df3e2f 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
@@ -164,7 +163,7 @@
 				   block-info-constructor)))))))
   (values))
 
-;;; Do control analysis on Component, finding the emit order. Our only
+;;; Do control analysis on COMPONENT, finding the emit order. Our only
 ;;; cleverness here is that we walk XEP's first to increase the
 ;;; probability that the tail call will be a drop-through.
 ;;;
@@ -189,7 +188,7 @@
     (clear-flags component)
 
     (dolist (fun (component-lambdas component))
-      (when (external-entry-point-p fun)
+      (when (xep-p fun)
 	(control-analyze-1-fun fun component block-info-constructor)))
 
     (dolist (fun (component-lambdas component))