X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2tran.lisp;h=db462db9069b4288e9fafe82f26dbb433355baf6;hb=b05f52060838600d14b5d8ad4604a61351dd7017;hp=1ff1709465c31b8248270ac3b1c48e1d61ccd07b;hpb=47bcbbb709e9e35e38e34ef2ea658f5a8eb0804d;p=sbcl.git

diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp
index 1ff1709..db462db 100644
--- a/src/compiler/ir2tran.lisp
+++ b/src/compiler/ir2tran.lisp
@@ -1107,7 +1107,7 @@
     (aver (member (functional-kind fun)
 		  '(nil :external :optional :toplevel :cleanup)))
 
-    (when (external-entry-point-p fun)
+    (when (xep-p fun)
       (init-xep-environment node block fun)
       #!+sb-dyncount
       (when *collect-dynamic-statistics*
@@ -1146,7 +1146,7 @@
 	 (returns (tail-set-info (lambda-tail-set fun))))
     (cond
      ((and (eq (return-info-kind returns) :fixed)
-	   (not (external-entry-point-p fun)))
+	   (not (xep-p fun)))
       (let ((locs (continuation-tns node block cont
 				    (return-info-types returns))))
 	(vop* known-return node block
@@ -1569,8 +1569,7 @@
 	    (when *collect-dynamic-statistics*
 	      (let ((first-node (continuation-next (block-start block))))
 		(unless (or (and (bind-p first-node)
-				 (external-entry-point-p
-				  (bind-lambda first-node)))
+				 (xep-p (bind-lambda first-node)))
 			    (eq (continuation-fun-name
 				 (node-cont first-node))
 				'%nlx-entry))