From: AndreaCorallo <akrl@sdf.org>
Date: Tue, 3 Mar 2020 23:06:46 +0000 (+0000)
Subject: * Do not crash if the output directory is created in the meanwhile
X-Git-Tag: emacs-28.0.90~2727^2~794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f3ba658fccdb0b35bdbbdfeb8591dba72ee983f;p=emacs.git

* Do not crash if the output directory is created in the meanwhile
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 342faa2879e..f16aa59dc5e 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2013,7 +2013,9 @@ Prepare every function for final compilation and drive the C back-end."
   (let ((dir (file-name-directory name)))
     (comp-finalize-relocs)
     (unless (file-exists-p dir)
-      (make-directory dir))
+      ;; In case it's created in the meanwhile.
+      (ignore-error 'file-already-exists
+        (make-directory dir)))
     (unless comp-dry-run
       (comp--compile-ctxt-to-file name))))