Steel Bank Common Lisp

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

Modified Files:
	setf.impure.lisp 
Log Message:
0.8.17.3:
	Fix bug reported and patched by Kalle Olavi Niemitalo (sbcl-devel
	2004-11-12)
	... (SETF (THE (VALUES ...) (VALUES ...)) (VALUES ...)) should
		work.
	... also delete a bug fixed last month.


Index: setf.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/setf.impure.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- setf.impure.lisp	29 Jun 2004 13:25:02 -0000	1.3
+++ setf.impure.lisp	29 Nov 2004 13:34:02 -0000	1.4
@@ -39,5 +39,12 @@
     (assert (null b))
     (assert (null d))))
 
+;;; SETF of THE with VALUES.
+(let (x y)
+  (setf (the (values fixnum fixnum) (values x y))
+        (values 1 2))
+  (assert (= x 1))
+  (assert (= y 2)))
+
 ;;; success
 (quit :unix-status 104)