X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=d77ff04ba15ba370333acc9d7c7c47940f3c52dd;hb=a83d979b12102a512f8b040fa2f9329db5ecf28e;hp=168fe6f8656a44520e5ad7d1f7c390e76c17a373;hpb=29f0545ba7ae947489d2d5fab0faa2b499096713;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 168fe6f..d77ff04 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -977,7 +977,9 @@
                          (funcall #'ir1-convert-lambdalike
                                   definition
                                   :source-name name)))
-           (debug-name (debug-name 'tl-xep name))
+           (debug-name (debug-name 'tl-xep
+                                   (or name
+                                       (functional-%source-name locall-fun))))
            ;; Convert the XEP using the policy of the real
            ;; function. Otherwise the wrong policy will be used for
            ;; deciding whether to type-check the parameters of the