Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv12829/tests

Modified Files:
	compiler-1.impure-cload.lisp 
Log Message:
0.7.9.13:
        Disabled type checking of arguments in MV-COMBINATION


Index: compiler-1.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler-1.impure-cload.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- compiler-1.impure-cload.lisp	3 May 2002 14:59:15 -0000	1.8
+++ compiler-1.impure-cload.lisp	29 Oct 2002 17:28:13 -0000	1.9
@@ -106,4 +106,14 @@
 	     (make-array 3 :element-type t :initial-element 0))
 	    nil))
 
+;;; bug 220: type check inserted after all arguments in MV-CALL caused
+;;; failure of stack analysis
+(defun bug220-helper ()
+  13)
+(assert (equal (multiple-value-call #'list
+                 (the integer (bug220-helper))
+                 nil)
+               '(13 nil)))
+
 (sb-ext:quit :unix-status 104) ; success
+