* 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 3176351b37db179c5f196009e8fb7ea4357d0f6a..28dbd567474e1fd94dbdb12430936de6b1ee03b0 100644 (file)
--- 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\f\n" 1)
     (condition-case err