Steel Bank Common Lisp

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

Modified Files:
	checkgen.lisp 
Log Message:
0.7.9.13:
        Disabled type checking of arguments in MV-COMBINATION


Index: checkgen.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/checkgen.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- checkgen.lisp	27 Sep 2002 11:30:57 -0000	1.25
+++ checkgen.lisp	29 Oct 2002 17:28:13 -0000	1.26
@@ -260,6 +260,9 @@
 	   (let ((kind (basic-combination-kind dest)))
 	     (cond ((eq cont (basic-combination-fun dest)) t)
 		   ((eq kind :local) t)
+                   ((mv-combination-p dest)
+                    ;; See bug 220
+                    nil)
                    ((not (eq (continuation-asserted-type cont)
                              (continuation-externally-checkable-type cont)))
                     ;; There is an explicit assertion.