From: Christophe R. <cr...@us...> - 2004-12-02 18:19:44
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20483/tests Modified Files: type.pure.lisp Log Message: 0.8.17.16: Plaster for the (COMPLEX RATIO) PFD flesh wound ... treat (COMPLEX (AND <numeric> <hairy>+)) as the same as (COMPLEX <numeric>) Index: type.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/type.pure.lisp,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- type.pure.lisp 3 Nov 2004 14:00:11 -0000 1.20 +++ type.pure.lisp 2 Dec 2004 18:19:30 -0000 1.21 @@ -215,6 +215,8 @@ (assert (subtypep 'complex '(complex real))) (assert (subtypep '(complex real) 'complex)) (assert (subtypep '(complex (eql 1)) '(complex (member 1 2)))) +(assert (subtypep '(complex ratio) '(complex rational))) +(assert (subtypep '(complex ratio) 'complex)) (assert (equal (multiple-value-list (subtypep '(complex (integer 1 2)) '(member #c(1 1) #c(1 2) #c(2 1) #c(2 2)))) |