From: Nikodemus S. <de...@us...> - 2004-05-15 12:09:31
|
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) |