* 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.
This commit is contained in:
Andrea Corallo 2020-10-10 10:15:21 +02:00
parent 85450f03be
commit 138990bbda

View file

@ -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 \