X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=d77ff04ba15ba370333acc9d7c7c47940f3c52dd;hb=7e24349c17298e2959e853ea411b5f65d9f7f332;hp=4c08cd7c819d74905664c8e197b0a0e09a16e103;hpb=1a3ccb8ce23ea45adf80f356e8a116a8cf0c2ddc;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 4c08cd7..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
@@ -1523,8 +1525,8 @@
       ;; the input file.
       (fatal-compiler-error (condition)
        (signal condition)
-       (when *compile-verbose*
-         (format *standard-output*
+       (pprint-logical-block (*error-output* nil :per-line-prefix "; ")
+         (format *error-output*
                  "~@<compilation aborted because of fatal error: ~2I~_~A~:>"
                  condition))
        (values nil t t)))))