From 37675df1d565b02aac0f32fbb1fef1719f82ec6d Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 12 Feb 2025 19:55:34 +0100 Subject: [PATCH] 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) --- lisp/emacs-lisp/cl-macs.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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)) -- 2.39.5