0.8.10.24:

[sbcl.git] / tests / setf.impure.lisp

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