diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2025-02-12 19:55:34 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-02-12 21:30:47 +0100 |
| commit | b93cdeb04769fde8e553a03ed4c68b442f9c43b4 (patch) | |
| tree | 10d8e6827672ef9836d70f0564d9d73a3393a204 /lisp/emacs-lisp | |
| parent | a669e6a37610f78115f473176f3914cea4c20fb2 (diff) | |
| download | emacs-b93cdeb04769fde8e553a03ed4c68b442f9c43b4.tar.gz emacs-b93cdeb04769fde8e553a03ed4c68b442f9c43b4.tar.bz2 emacs-b93cdeb04769fde8e553a03ed4c68b442f9c43b4.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index c6e7833a6d0..9b76c8c80a0 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)) |