From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 23 Aug 2020 10:36:07 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (native-compile): Fix free function compilation.
X-Git-Tag: emacs-28.0.90~2727^2~476
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=337367a733e107df1ecb89955f0a249491bc62d9;p=emacs.git

* lisp/emacs-lisp/comp.el (native-compile): Fix free function compilation.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 3176351b37d..28dbd567474 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2654,11 +2654,11 @@ Return the compilation unit file name."
          (byte-compile-debug t)
          (comp-ctxt
           (make-comp-ctxt
-           :output (comp-el-to-eln-filename (if (symbolp function-or-file)
-                                                (symbol-name function-or-file)
-                                              function-or-file)
-                                            (when byte-native-for-bootstrap
-                                              (car (last comp-eln-load-path))))
+           :output (if (symbolp function-or-file)
+                       (make-temp-file (symbol-name function-or-file) nil ".eln")
+                     (comp-el-to-eln-filename function-or-file
+                                              (when byte-native-for-bootstrap
+                                                (car (last comp-eln-load-path)))))
            :with-late-load with-late-load)))
     (comp-log "\n\n" 1)
     (condition-case err