# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1293666828 0
# Node ID 9ac28212c75a3d96011a7ac7614dcddc261be3c3
# Parent  2a7b6ddb80637cc139c0cf301aacd3fd40bd4943
#'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.

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@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 (= < > <= >=):
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)