[Sbcl-commits] CVS: sbcl/tests interface.pure.lisp,1.18,1.19

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv30963/tests

Modified Files:
	interface.pure.lisp 
Log Message:
0.7.12.5:
	Fix bug 157: give TYPEP and friends an (ignored) optional
		environment argument
	... and open bug 237 documenting the implementation
		deficiencies.
	Also allow calls to MACROEXPAND and friends with an explicit NIL
		environment argument to be compiled and executed.


Index: interface.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/interface.pure.lisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- interface.pure.lisp	5 Dec 2002 10:44:44 -0000	1.18
+++ interface.pure.lisp	27 Jan 2003 17:27:53 -0000	1.19
@@ -33,3 +33,11 @@
 (describe #0a0)
 (describe #(1 2 3))
 (describe #2a((1 2) (3 4)))
+
+;;; TYPEP, SUBTYPEP, UPGRADED-ARRAY-ELEMENT-TYPE and
+;;; UPGRADED-COMPLEX-PART-TYPE should be able to deal with NIL as an
+;;; environment argument
+(typep 1 'fixnum nil)
+(subtypep 'fixnum 'integer nil)
+(upgraded-array-element-type '(mod 5) nil)
+(upgraded-complex-part-type '(single-float 0.0 1.0) nil)