Mercurial > hg > xemacs-beta

diff lisp/cl-macs.el @ 5153:f552caabf58b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct the notany, notevery compiler macros. 2010-03-20 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (notany, notevery): Correct these compiler macros.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 20 Mar 2010 12:00:23 +0000
parents a24f2ab0093b
children 2e528066e2fc
line wrap: on
line diff
--- 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