[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4bb18635673 2/6: comp: make comp-run don't require cl-lib at runt
From: |
Andrea Corallo |
Subject: |
master 4bb18635673 2/6: comp: make comp-run don't require cl-lib at runtime |
Date: |
Thu, 9 Nov 2023 06:35:01 -0500 (EST) |
branch: master
commit 4bb186356734cce2d9c5f1d506deb0da1bb40770
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>
comp: make comp-run don't require cl-lib at runtime
* lisp/emacs-lisp/comp-run.el (cl-lib): Require it only at compile
time.
(native-compile-async-skip-p): Use 'seq-some'.
(native--compile-async): Don't use 'cl-substitute'.
---
lisp/emacs-lisp/comp-run.el | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/comp-run.el b/lisp/emacs-lisp/comp-run.el
index bf54c64dd68..9ea770135c1 100644
--- a/lisp/emacs-lisp/comp-run.el
+++ b/lisp/emacs-lisp/comp-run.el
@@ -31,7 +31,7 @@
;;; Code:
-(require 'cl-lib)
+(eval-when-compile (require 'cl-lib))
(require 'warnings)
(defgroup comp-run nil
@@ -209,7 +209,7 @@ LOAD and SELECTOR work as described in
`native--compile-async'."
;; any of the regexps in
;; `native-comp-jit-compilation-deny-list' matches.
(and (eq load 'late)
- (cl-some (lambda (re)
+ (seq-some (lambda (re)
(string-match-p re file))
native-comp-jit-compilation-deny-list))))
@@ -433,14 +433,18 @@ bytecode definition was not changed in the meantime)."
(t (signal 'native-compiler-error
(list "Not a file nor directory" file-or-dir)))))
(dolist (file file-list)
- (if-let ((entry (cl-find file comp-files-queue :key #'car :test
#'string=)))
+ (if-let ((entry (seq-find (lambda (x) (string= file (car x)))
comp-files-queue)))
;; Most likely the byte-compiler has requested a deferred
;; compilation, so update `comp-files-queue' to reflect that.
(unless (or (null load)
(eq load (cdr entry)))
(setf comp-files-queue
- (cl-substitute (cons file load) (car entry) comp-files-queue
- :key #'car :test #'string=)))
+ (cl-loop for i in comp-files-queue
+ with old = (car entry)
+ if (string= (car i) old)
+ collect (cons file load)
+ else
+ collect i)))
(unless (native-compile-async-skip-p file load selector)
(let* ((out-filename (comp-el-to-eln-filename file))
- master updated (5416896d608 -> 5d171d26c00), Andrea Corallo, 2023/11/09
- master 4bb18635673 2/6: comp: make comp-run don't require cl-lib at runtime,
Andrea Corallo <=
- master e6a955d2426 1/6: comp: split code in comp-run.el, Andrea Corallo, 2023/11/09
- master b2416d2c029 4/6: Don't load comp when installing an existing trampoline, Andrea Corallo, 2023/11/09
- master 5d171d26c00 6/6: comp: Don't load.el comp when C-h f, Andrea Corallo, 2023/11/09
- master 93cc43a23c9 3/6: comp: don't require 'warnings' in comp-run, Andrea Corallo, 2023/11/09
- master c559f4e3682 5/6: comp: Add comp-common.el, Andrea Corallo, 2023/11/09