Mercurial > hg > xemacs-beta
changeset 5153:f552caabf58b
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 | 45753d9a0dc4 |
| children | 125f4119e64d |
| files | lisp/ChangeLog lisp/cl-macs.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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:
--- 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