[Sbcl-commits] CVS: sbcl/tests compiler.pure.lisp,1.106,1.107

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1824/tests

Modified Files:
	compiler.pure.lisp 
Log Message:
0.8.16.32: Fix #302
            * PRIMITIVE-TYPE used to return (any) for all intersection
               types. Make it smarter.


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- compiler.pure.lisp	1 Nov 2004 03:44:13 -0000	1.106
+++ compiler.pure.lisp	4 Nov 2004 11:21:22 -0000	1.107
@@ -1598,3 +1598,10 @@
 		   (compilation-speed 0) (speed 1)))
 	(if (logbitp 0 (ash (1- a) (min 11 a))) 0 0)))
    805)))
+
+;;; bug #302
+(assert (compile
+         nil
+         '(lambda (s ei x y)
+           (declare (type (simple-array function (2)) s) (type ei ei))
+           (funcall (aref s ei) x y))))