0.7.1.18:

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

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 76390e4..5df3e2f 100644 (file)
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -163,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.
 ;;;
@@ -188,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))