[elpa] master 005714e 142/187: Don't run the loop when async-bytecomp-allowed-packages is nil.

[Michael Albinus]

branch: master
commit 005714e0968e3cea5d563d271cb98fc9b942de5d
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Don't run the loop when async-bytecomp-allowed-packages is nil.
    
    * async-bytecomp.el (async-bytecomp-get-allowed-pkgs): Do it.
---
 async-bytecomp.el |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/async-bytecomp.el b/async-bytecomp.el
index dc8e21a..5cf3f33 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -105,12 +105,13 @@ All *.elc files are systematically deleted before 
proceeding."
 (declare-function package-desc-reqs "package.el" (cl-x))
 
 (defun async-bytecomp-get-allowed-pkgs ()
-  (cl-loop for p in async-bytecomp-allowed-packages
-           for pkg-desc = (car (assoc-default p package-archive-contents))
-           append (mapcar 'car (package-desc-reqs pkg-desc)) into reqs
-           finally return
-           (cl-remove-duplicates
-            (append async-bytecomp-allowed-packages reqs))))
+  (when async-bytecomp-allowed-packages
+    (cl-loop for p in async-bytecomp-allowed-packages
+          for pkg-desc = (car (assoc-default p package-archive-contents))
+          append (mapcar 'car (package-desc-reqs pkg-desc)) into reqs
+          finally return
+          (cl-remove-duplicates
+           (append async-bytecomp-allowed-packages reqs)))))
 
 (defadvice package--compile (around byte-compile-async activate)
   (let ((cur-package (package-desc-name pkg-desc)))