Mercurial > hg > xemacs-beta

diff lisp/cl-macs.el @ 5316:9ac28212c75a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#'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 596011a8bf8f
children 8aa511adfad6
line wrap: on
line diff
--- 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)