# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1269086423 0
# Node ID f552caabf58b2f3bd314e695223838af1d67abf8
# Parent  45753d9a0dc4aebfc98b961647a57e840644e3a7
Correct the notany, notevery compiler macros.

2010-03-20  Aidan Kehoe  <kehoea@parhasard.net>

	* cl-macs.el (notany, notevery):
	Correct these compiler macros.

diff -r 45753d9a0dc4 -r f552caabf58b lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Mar 18 23:12:41 2010 -0500
+++ b/lisp/ChangeLog	Sat Mar 20 12:00:23 2010 +0000
@@ -1,3 +1,8 @@
+2010-03-20  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* cl-macs.el (notany, notevery):
+	Correct these compiler macros.
+
 2010-03-15  Ben Wing  <ben@xemacs.org>
 
 	* mule/mule-cmds.el:
diff -r 45753d9a0dc4 -r f552caabf58b lisp/cl-macs.el
--- a/lisp/cl-macs.el	Thu Mar 18 23:12:41 2010 -0500
+++ b/lisp/cl-macs.el	Sat Mar 20 12:00:23 2010 +0000
@@ -3609,10 +3609,10 @@
 ;;	  (t form)))))
 
 (define-compiler-macro notany (&whole form &rest cl-rest)
-  (cons 'not (cons 'some (cdr cl-rest))))
+  `(not (some ,@(cdr form))))
 
 (define-compiler-macro notevery (&whole form &rest cl-rest)
-  (cons 'not (cons 'every (cdr cl-rest))))
+  `(not (every ,@(cdr form))))
 
 (define-compiler-macro constantly (&whole form value &rest more-values)
   (cond