From: Alexey D. <ade...@us...> - 2003-03-08 12:02:13
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv25483/tests Modified Files: list.pure.lisp Log Message: 0.7.13.20: Fixed APPEND.ERROR.1. Index: list.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/list.pure.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- list.pure.lisp 12 Nov 2002 08:32:18 -0000 1.4 +++ list.pure.lisp 8 Mar 2003 12:02:10 -0000 1.5 @@ -101,7 +101,10 @@ args)))) (check-error (funcall (compile nil `(lambda () ,exp))) fail))))) -(multiple-value-bind (result error) - (ignore-errors (append 1 2)) - (assert (null result)) - (assert (typep error 'type-error))) +(dolist (test '((1 2) + ((1 2) nil (3 . 4) nil) + (nil (1 2) nil (3 . 4) nil))) + (multiple-value-bind (result error) + (ignore-errors (apply 'append test)) + (assert (null result)) + (assert (typep error 'type-error)))) |