[Sbcl-commits] CVS: sbcl/tests type.before-xc.lisp,1.11,1.12

[<me...@us...>]

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

Modified Files:
	type.before-xc.lisp 
Log Message:
0.9.10.26
  * fixed endless loop on (SUBTYPEP NULL (OR UNK0 UNK1)) in the cross compiler


Index: type.before-xc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/type.before-xc.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- type.before-xc.lisp	8 Mar 2006 18:49:57 -0000	1.11
+++ type.before-xc.lisp	9 Mar 2006 13:05:25 -0000	1.12
@@ -283,6 +283,11 @@
     (sb-xc:subtypep '(function) '(function (t &rest t)))
   (assert (not yes))
   (assert win))
+;; Used to run out of stack.
+(multiple-value-bind (yes win)
+    (sb-xc:subtypep 'null '(or unk0 unk1))
+  (assert (not yes))
+  (assert (not win)))
 
 (multiple-value-bind (yes win)
     (sb-xc:subtypep '(and function instance) nil)