X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsetf.impure.lisp;h=bc4f011a81a3a241a47151203cfbd7f1d8a5af53;hb=c8cc0137e55e6179f6af344f42e54f514660f68b;hp=77c4ac5257dc196701430ab85acad6c7a1d61e9c;hpb=ba176faab453c2b5d4d9a6667a84680c8783c957;p=sbcl.git

diff --git a/tests/setf.impure.lisp b/tests/setf.impure.lisp
index 77c4ac5..bc4f011 100644
--- a/tests/setf.impure.lisp
+++ b/tests/setf.impure.lisp
@@ -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)