* lisp/emacs-lisp/comp.el (comp-trampoline-compile): Improve readability

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index acabc31fc33ed5c7ba431703388820043016218e..4c423be06c4a010b0e849167314c2afed709c2a3 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3805,22 +3805,22 @@ Return the trampoline if found or nil otherwise."
      form nil
      ;; If we've disabled nativecomp, don't write the trampolines to
      ;; the eln cache (but create them).
-     (and (not inhibit-automatic-native-compilation)
-          (cl-loop
-           for dir in (if native-compile-target-directory
-                          (list (expand-file-name comp-native-version-dir
-                                                  native-compile-target-directory))
-                        (comp-eln-load-path-eff))
-           for f = (expand-file-name
-                    (comp-trampoline-filename subr-name)
-                    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 \
+     (unless inhibit-automatic-native-compilation
+       (cl-loop
+        for dir in (if native-compile-target-directory
+                       (list (expand-file-name comp-native-version-dir
+                                               native-compile-target-directory))
+                     (comp-eln-load-path-eff))
+        for f = (expand-file-name
+                 (comp-trampoline-filename subr-name)
+                 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 \
 `native-comp-eln-load-path'"))))))
 
 \f