carbon2-commit: #'cl-safe-expr-p, forms that start with the symbol lambda are also safe.

changeset: 5374:9ac28212c75a user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Wed Dec 29 23:53:48 2010 +0000 files: lisp/ChangeLog lisp/cl-macs.el description: #'cl-safe-expr-p, forms that start with the symbol lambda are also safe. 2010-12-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; * cl-macs.el (cl-safe-expr-p): Forms that start with the symbol lambda are also safe. diff -r 2a7b6ddb8063 -r 9ac28212c75a lisp/ChangeLog --- 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(a)parhasard.net&gt; + + * cl-macs.el (cl-safe-expr-p): + Forms that start with the symbol lambda are also safe. + 2010-12-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; * cl-macs.el (= < > <= >=): diff -r 2a7b6ddb8063 -r 9ac28212c75a lisp/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) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches