X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug-dump.lisp;h=5a0df420897a0076ba9c15c0d23ca02a3bdfe7eb;hb=b05f52060838600d14b5d8ad4604a61351dd7017;hp=fdfdd67b97ab39f2e94577de02aaa2faae5c6f5a;hpb=47bcbbb709e9e35e38e34ef2ea658f5a8eb0804d;p=sbcl.git

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index fdfdd67..5a0df42 100644
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -512,7 +512,7 @@
 	(setf (compiled-debug-fun-tlf-number dfun) tlf-num)
 	(setf (compiled-debug-fun-blocks dfun) blocks)))
 
-    (if (external-entry-point-p fun)
+    (if (xep-p fun)
 	(setf (compiled-debug-fun-returns dfun) :standard)
 	(let ((info (tail-set-info (lambda-tail-set fun))))
 	  (when info