X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=3faf635af99d6fb4c3cad09fa78267f5117e17db;hb=6bbc22725d3bf663726ed9adca544e39316364a6;hp=d3eadd8163e2d3bd7a3b5342d86192f1fa36fa72;hpb=697f4d1bd284ed6b72d24f416dfb09c2779b12df;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index d3eadd8..3faf635 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -595,7 +595,7 @@
                (declare (ignorable ,@ignores))
                (%funcall ,entry ,@args))
             :debug-name (debug-name 'hairy-function-entry
-                                    (lvar-fun-name
+                                    (lvar-fun-debug-name
                                      (basic-combination-fun call)))))))
     (convert-call ref call new-fun)
     (dolist (ref (leaf-refs entry))