feature/native-comp 53f9bc6 08/10: * comp.el (comp-output-base-filename): Handle src being a symbol

[Andrea Corallo]

branch: feature/native-comp
commit 53f9bc6908a4da8f5c985e8f204a479c828c432d
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * comp.el (comp-output-base-filename): Handle src being a symbol
---
 lisp/emacs-lisp/comp.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index eca61c6..92d0655 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)))