X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcontrol.lisp;h=9259a02a5a651afcf0d63b593739fe305fe3fb33;hb=b05f52060838600d14b5d8ad4604a61351dd7017;hp=76390e433611f67dd613fcbe57be988d4fbea370;hpb=47bcbbb709e9e35e38e34ef2ea658f5a8eb0804d;p=sbcl.git

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 76390e4..9259a02 100644
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -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))