From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 29 Mar 2020 10:09:02 +0000 (+0100)
Subject: * comp.el (comp-output-base-filename): Handle src being a symbol
X-Git-Tag: emacs-28.0.90~2727^2~736
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53f9bc6908a4da8f5c985e8f204a479c828c432d;p=emacs.git

* comp.el (comp-output-base-filename): Handle src being a symbol
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index eca61c6bac5..92d0655ffdc 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -440,7 +440,8 @@ VERBOSITY is a number between 0 and 3."
 
 (defun comp-output-base-filename (src)
   "Output filename sans extention for SRC file being native compiled."
-  (let* ((expanded-filename (expand-file-name src))
+  (let* ((src (if (symbolp src) (symbol-name src) src))
+         (expanded-filename (expand-file-name src))
          (output-dir (file-name-as-directory
                       (concat (file-name-directory expanded-filename)
                               comp-native-path-postfix)))