From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 12 Feb 2025 18:55:34 +0000 (+0100)
Subject: Consolidate side-effect-free decls in cl-lib
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37675df1d565b02aac0f32fbb1fef1719f82ec6d;p=emacs.git

Consolidate side-effect-free decls in cl-lib

* lisp/emacs-lisp/cl-macs.el: Consolidate two identical loops with
side-effect-free declarations into one.

(cherry picked from commit b93cdeb04769fde8e553a03ed4c68b442f9c43b4)
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 8dc5b81d32d..7185b20d651 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3725,19 +3725,17 @@ macro that returns its `&whole' argument."
       `(cl-getf (symbol-plist ,sym) ,prop ,def)
     `(get ,sym ,prop)))
 
-(dolist (y '(cl-first cl-second cl-third cl-fourth
-             cl-fifth cl-sixth cl-seventh
-             cl-eighth cl-ninth cl-tenth
-             cl-rest cl-endp cl-plusp cl-minusp))
-  (put y 'side-effect-free t))
-
 ;;; Things that are inline.
 (cl-proclaim '(inline cl-acons cl-map cl-notany cl-notevery cl-revappend
                cl-nreconc))
 
 ;;; Things that are side-effect-free.
 (mapc (lambda (x) (function-put x 'side-effect-free t))
-      '(cl-oddp cl-evenp cl-signum cl-ldiff cl-pairlis cl-gcd
+      '(cl-first cl-second cl-third cl-fourth
+        cl-fifth cl-sixth cl-seventh
+        cl-eighth cl-ninth cl-tenth
+        cl-rest cl-endp cl-plusp cl-minusp
+        cl-oddp cl-evenp cl-signum cl-ldiff cl-pairlis cl-gcd
         cl-lcm cl-isqrt cl-floor cl-ceiling cl-truncate cl-round cl-mod cl-rem
         cl-subseq cl-list-length cl-get cl-getf))