Mercurial > hg > xemacs-beta
comparison lisp/cl-macs.el @ 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 | a24f2ab0093b |
| children | 2e528066e2fc |
comparison
equal
deleted
inserted
replaced
| 5152:45753d9a0dc4 | 5153:f552caabf58b |
|---|---|
| 3607 ;; ;; runtime (or both are, and equalp will be called from | 3607 ;; ;; runtime (or both are, and equalp will be called from |
| 3608 ;; ;; byte-optimize.el). | 3608 ;; ;; byte-optimize.el). |
| 3609 ;; (t form))))) | 3609 ;; (t form))))) |
| 3610 | 3610 |
| 3611 (define-compiler-macro notany (&whole form &rest cl-rest) | 3611 (define-compiler-macro notany (&whole form &rest cl-rest) |
| 3612 (cons 'not (cons 'some (cdr cl-rest)))) | 3612 `(not (some ,@(cdr form)))) |
| 3613 | 3613 |
| 3614 (define-compiler-macro notevery (&whole form &rest cl-rest) | 3614 (define-compiler-macro notevery (&whole form &rest cl-rest) |
| 3615 (cons 'not (cons 'every (cdr cl-rest)))) | 3615 `(not (every ,@(cdr form)))) |
| 3616 | 3616 |
| 3617 (define-compiler-macro constantly (&whole form value &rest more-values) | 3617 (define-compiler-macro constantly (&whole form value &rest more-values) |
| 3618 (cond | 3618 (cond |
| 3619 ((< (length form) 2) | 3619 ((< (length form) 2) |
| 3620 ;; Error at runtime: | 3620 ;; Error at runtime: |