diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-04-09 13:54:17 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-04-09 16:45:40 +0200 |
| commit | 48ff93ba18c8fae6c2904d40906cd0e13158b688 (patch) | |
| tree | de98ac7a849aabf422c91ceebcd927c04ae59d15 /lisp/emacs-lisp/cl-extra.el | |
| parent | c9e13048bb9b1b5fb156fb128b32030ae2f1003b (diff) | |
| download | emacs-48ff93ba18c8fae6c2904d40906cd0e13158b688.tar.gz emacs-48ff93ba18c8fae6c2904d40906cd0e13158b688.tar.bz2 emacs-48ff93ba18c8fae6c2904d40906cd0e13158b688.zip | |
Adjust side-effect-free declarations
* lisp/emacs-lisp/byte-opt.el (side-effect-and-error-free-fns):
Add `eql` here.
* lisp/emacs-lisp/cl-macs.el (eql, cl-subst, cl-sublis):
Don't set the `side-effect-free` property here.
`cl-subst` and `cl-sublis` are not side-effect-free.
* lisp/emacs-lisp/cl-extra.el (cl-revappend):
Declare side-effect-free.
* lisp/emacs-lisp/cl-lib.el (cl-copy-list):
Declare side-effect-free and error-free.
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index e1c8ebe2559..a89bbc3a748 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -567,6 +567,7 @@ too large if positive or too small if negative)." ;;;###autoload (defun cl-revappend (x y) "Equivalent to (append (reverse X) Y)." + (declare (side-effect-free t)) (nconc (reverse x) y)) ;;;###autoload |