X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fentry.lisp;h=5c5681263d403abc0f7928f596a10276d7d7fe71;hb=0cfad881b88e03971a2b3ef0c0c0fc2e5f4f1bc8;hp=bdb48e18aa5707791730166ad9476e3858d7fd34;hpb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;p=sbcl.git

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index bdb48e1..5c56812 100644
--- a/src/compiler/entry.lisp
+++ b/src/compiler/entry.lisp
@@ -59,9 +59,7 @@
 	  (not (null (physenv-closure (lambda-physenv fun)))))
     (setf (entry-info-offset info) (gen-label))
     (setf (entry-info-name info)
-	  (let ((name (leaf-name internal-fun)))
-	    (or name
-		(component-name (block-component (node-block bind))))))
+	  (leaf-debug-name internal-fun))
     (when (policy bind (>= debug 1))
       (setf (entry-info-arguments info) (make-arg-names internal-fun))
       (setf (entry-info-type info) (type-specifier (leaf-type internal-fun)))))
@@ -90,10 +88,12 @@
 	(:external
 	 (unless (lambda-has-external-references-p lambda)
 	   (let* ((ef (functional-entry-function lambda))
-		  (new (make-functional :kind :toplevel-xep
-					:info (leaf-info lambda)
-					:name (leaf-name ef)
-					:lexenv (make-null-lexenv)))
+		  (new (make-functional
+			:kind :toplevel-xep
+			:info (leaf-info lambda)
+			:%source-name (functional-%source-name ef)
+			:%debug-name (functional-%debug-name ef)
+			:lexenv (make-null-lexenv)))
 		  (closure (physenv-closure
 			    (lambda-physenv (main-entry ef)))))
 	     (dolist (ref (leaf-refs lambda))