Mercurial > hg > xemacs-beta
changeset 5316:9ac28212c75a
#'cl-safe-expr-p, forms that start with the symbol lambda are also safe.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (cl-safe-expr-p):
Forms that start with the symbol lambda are also safe.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 29 Dec 2010 23:53:48 +0000 |
| parents | 2a7b6ddb8063 |
| children | 8aa511adfad6 |
| files | lisp/ChangeLog lisp/cl-macs.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Dec 29 23:51:08 2010 +0000 +++ b/lisp/ChangeLog Wed Dec 29 23:53:48 2010 +0000 @@ -1,3 +1,8 @@ +2010-12-29 Aidan Kehoe <kehoea@parhasard.net> + + * cl-macs.el (cl-safe-expr-p): + Forms that start with the symbol lambda are also safe. + 2010-12-29 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (= < > <= >=):
--- a/lisp/cl-macs.el Wed Dec 29 23:51:08 2010 +0000 +++ b/lisp/cl-macs.el Wed Dec 29 23:53:48 2010 +0000 @@ -111,7 +111,8 @@ ;;; Check if no side effects. (defun cl-safe-expr-p (x) - (or (not (and (consp x) (not (memq (car x) '(quote function function*))))) + (or (not (and (consp x) (not (memq (car x) + '(quote function function* lambda))))) (and (symbolp (car x)) (or (memq (car x) cl-simple-funcs) (memq (car x) cl-safe-funcs)