changeset 5161:125f4119e64d

merge
author Ben Wing <ben@xemacs.org>
date Sat, 20 Mar 2010 20:22:00 -0500
parents ab9ee10a53e4 (current diff) f552caabf58b (diff)
children 41262f87eb39 e374ea766cc1
files lisp/ChangeLog
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Mar 20 20:20:30 2010 -0500
+++ b/lisp/ChangeLog	Sat Mar 20 20:22:00 2010 -0500
@@ -17,6 +17,11 @@
 	* diagnose.el (show-memory-usage):
 	Rewrite to take into account API changes in memory-usage functions.
 
+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:
--- a/lisp/cl-macs.el	Sat Mar 20 20:20:30 2010 -0500
+++ b/lisp/cl-macs.el	Sat Mar 20 20:22:00 2010 -0500
@@ -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