[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c35c86a 1/3: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Decl st
|
From: |
Andrea Corallo |
|
Subject: |
master c35c86a 1/3: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Decl struct predicates as pure |
|
Date: |
Wed, 1 Dec 2021 16:21:39 -0500 (EST) |
branch: master
commit c35c86a353c7dd6d4130913c532aba026a5a6562
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Decl struct predicates as pure
---
lisp/emacs-lisp/cl-macs.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 1852471..9c9a778 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)))