[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 854a2901f7: * lisp/emacs-lisp/comp.el (comp-trampoline-compile):
From: |
Andrea Corallo |
Subject: |
master 854a2901f7: * lisp/emacs-lisp/comp.el (comp-trampoline-compile): Improve readability |
Date: |
Fri, 27 Jan 2023 04:52:09 -0500 (EST) |
branch: master
commit 854a2901f7c895b59f005fd1042c6bb7b19ac19a
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/emacs-lisp/comp.el (comp-trampoline-compile): Improve readability
---
lisp/emacs-lisp/comp.el | 32 ++++++++++++++++----------------
1 file changed, 16 insertions(+), 16 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index acabc31fc3..4c423be06c 100644
--- 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'"))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 854a2901f7: * lisp/emacs-lisp/comp.el (comp-trampoline-compile): Improve readability,
Andrea Corallo <=