diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-12-01 11:23:25 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-12-01 22:21:04 +0100 |
| commit | c35c86a353c7dd6d4130913c532aba026a5a6562 (patch) | |
| tree | 27f49d3604d6e52f533608a79a91075e9c36e52d /lisp/emacs-lisp | |
| parent | ec3b6fa8e18a64616af057195f86a4c8b09f9ccd (diff) | |
| download | emacs-c35c86a353c7dd6d4130913c532aba026a5a6562.tar.gz emacs-c35c86a353c7dd6d4130913c532aba026a5a6562.tar.bz2 emacs-c35c86a353c7dd6d4130913c532aba026a5a6562.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Decl struct predicates as pure
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 1852471bcbb..9c9a778f045 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -3050,7 +3050,7 @@ To see the documentation for a defined struct type, use `(,predicate cl-x)))) (when pred-form (push `(,defsym ,predicate (cl-x) - (declare (side-effect-free error-free)) + (declare (side-effect-free error-free) (pure t)) ,(if (eq (car pred-form) 'and) (append pred-form '(t)) `(and ,pred-form t))) |