From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 10 Oct 2020 08:15:21 +0000 (+0200)
Subject: * Fix failure when compiling a trampoline with no eln-cache dir (bug#43875)
X-Git-Tag: emacs-28.0.90~2727^2~382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=138990bbda7ab228e3fde44710426c474b2c1086;p=emacs.git

* Fix failure when compiling a trampoline with no eln-cache dir (bug#43875)

	* lisp/emacs-lisp/comp.el (comp-trampoline-compile): Try to create
	the eln-cache dir if this is not existing, if fails to do that
	move on to the next one.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 0445fc085e1..dbd4cef1fc7 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2603,11 +2603,15 @@ Return the its filename if found or nil otherwise."
     (native-compile
      trampoline-sym nil
      (cl-loop
-      for dir in comp-eln-load-path
+      for load-dir in comp-eln-load-path
+      for dir = (concat load-dir comp-native-version-dir)
       for f = (expand-file-name
                (comp-trampoline-filename subr-name)
-               (concat dir
-                       comp-native-version-dir))
+               dir)
+      unless (file-exists-p dir)
+        do (ignore-errors
+             (make-directory dir t)
+             (cl-return f))
       when (file-writable-p f)
         do (cl-return f)
       finally (error "Cannot find suitable directory for output in \