[Sbcl-commits] CVS: sbcl/tests setf.impure.lisp,1.1,1.2

[Nikodemus S. <de...@us...>]

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

Modified Files:
	setf.impure.lisp 
Log Message:
0.8.10.24:
         Fixed bug 316: SHIFTF of VALUES
         ... Filched the CMUCL SHIFT, which some adaptions.
         ... Regression test.
         ... Note to self: remove BUGS entries fully unless the last one.


Index: setf.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/setf.impure.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- setf.impure.lisp	27 Nov 2003 22:44:36 -0000	1.1
+++ setf.impure.lisp	15 May 2004 12:09:20 -0000	1.2
@@ -23,5 +23,11 @@
 ;;; environment object.
 (assert (multiple-value-list (get-setf-expansion '(foo))))
 
+;;; Regression test for SHIFTF of values.
+(let ((x (list 1))
+      (y (list 2)))
+  (shiftf (values (car x) (car y)) (values (car y) (car x)))
+  (assert (equal (list x y) '((2) (1)))))
+
 ;;; success
-(quit :unix-status 104)
\ No newline at end of file
+(quit :unix-status 104)