0.7.1.4:

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

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 3d96ee6..9259a02 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
@@ -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))