From: Nikodemus S. <de...@us...> - 2008-03-03 14:21:57
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15766/tests Modified Files: list.pure.lisp Log Message: 1.0.15.10: ASSOC and MEMBER were broken for :KEY #'IDENTITY * Regression caused by 1.0.15.9 -- SET where is should have been SETF. * Add a few test-cases. Index: list.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/list.pure.lisp,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- list.pure.lisp 20 Nov 2007 14:19:55 -0000 1.18 +++ list.pure.lisp 3 Mar 2008 14:21:51 -0000 1.19 @@ -157,6 +157,8 @@ (let ((x-numbers '(1 2)) (fun (car (list 'member)))) (test x-numbers (member 1 numbers)) + (test x-numbers (member 1 numbers :key 'identity)) + (test x-numbers (member 1 numbers :key #'identity)) (test (cdr x-numbers) (member 2 numbers)) (test nil (member 1.0 numbers )) @@ -199,6 +201,8 @@ (let ((fun (car (list 'assoc)))) (test (1 a) (assoc 1 numbers)) (test (2 b) (assoc 2 numbers)) + (test (1 a) (assoc 1 numbers :key 'identity)) + (test (2 b) (assoc 2 numbers :key #'identity)) (test nil (assoc 1.0 numbers)) (test (1 a) (assoc 1.0 numbers :test #'=)) |