Mercurial > hg > xemacs-beta
diff tests/automated/lisp-tests.el @ 5329:7b391d07b334
Tweak a few compiler macros for functions in cl-seq.el.
lisp/ChangeLog addition:
2011-01-02 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (define-star-compiler-macros):
Make sure the form has ITEM and LIST specified before attempting
to change to calls with explicit tests; necessary for some tests
in lisp-tests.el to compile correctly.
(stable-union, stable-intersection): Add compiler macros for these
functions, in the same way we do for most of the other functions
in cl-seq.el.
tests/ChangeLog addition:
2011-01-02 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el (test-fun): Test member*, assoc*,
rassoc*, delete* here too.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 02 Jan 2011 16:18:26 +0000 |
| parents | f87bb35a6b94 |
| children | 287499ff4c5f 89331fa1c819 |
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el Sun Jan 02 02:32:59 2011 +0000 +++ b/tests/automated/lisp-tests.el Sun Jan 02 16:18:26 2011 +0000 @@ -798,12 +798,12 @@ collect `(Check-Error circular-list (,fun 1 (make-circular-list ,n)))))) (test-funs (&rest funs) `(progn ,@(loop for fun in funs collect `(test-fun ,fun))))) - (test-funs member old-member + (test-funs member* member old-member memq old-memq - assoc old-assoc - rassoc old-rassoc + assoc* assoc old-assoc + rassoc* rassoc old-rassoc rassq old-rassq - delete old-delete + delete* delete old-delete delq old-delq remassoc remassq remrassoc remrassq))