feature/native-comp 377ffdb 05/12: * Do not fail if more then one level of directories has to be created

[Andrea Corallo]

branch: feature/native-comp
commit 377ffdb528e75f7e02be5f0305cdf326da0dc451
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Do not fail if more then one level of directories has to be created
    
        * lisp/emacs-lisp/comp.el (native-compile-async): Call
        make-directory if necessary.
---
 lisp/emacs-lisp/comp.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 99bf30a..8024665 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2748,9 +2748,9 @@ queued with LOAD %"
                                   comp-deferred-compilation-black-list)))
           (let* ((out-filename (comp-el-to-eln-filename file))
                  (out-dir (file-name-directory out-filename)))
-            (if (or (file-writable-p out-filename)
-                    (and (not (file-exists-p out-dir))
-                         (file-writable-p (substring out-dir 0 -1))))
+            (unless (file-exists-p out-dir)
+              (make-directory out-dir t))
+            (if (file-writable-p out-filename)
                 (setf comp-files-queue
                       (append comp-files-queue `((,file . ,load))))
               (display-warning 'comp