Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 5329:7b391d07b334

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5328:dae3d95cf319 5329:7b391d07b334
796 (Check-Error malformed-list (,fun nil 1)) 796 (Check-Error malformed-list (,fun nil 1))
797 ,@(loop for n in '(1 2 2000) 797 ,@(loop for n in '(1 2 2000)
798 collect `(Check-Error circular-list (,fun 1 (make-circular-list ,n)))))) 798 collect `(Check-Error circular-list (,fun 1 (make-circular-list ,n))))))
799 (test-funs (&rest funs) `(progn ,@(loop for fun in funs collect `(test-fun ,fun))))) 799 (test-funs (&rest funs) `(progn ,@(loop for fun in funs collect `(test-fun ,fun)))))
800 800
801 (test-funs member old-member 801 (test-funs member* member old-member
802 memq old-memq 802 memq old-memq
803 assoc old-assoc 803 assoc* assoc old-assoc
804 rassoc old-rassoc 804 rassoc* rassoc old-rassoc
805 rassq old-rassq 805 rassq old-rassq
806 delete old-delete 806 delete* delete old-delete
807 delq old-delq 807 delq old-delq
808 remassoc remassq remrassoc remrassq)) 808 remassoc remassq remrassoc remrassq))
809 809
810 (let ((x '((1 . 2) 3 (4 . 5)))) 810 (let ((x '((1 . 2) 3 (4 . 5))))
811 (Assert (eq (assoc 1 x) (car x))) 811 (Assert (eq (assoc 1 x) (car x)))