diff --git a/shiftf.lsp b/shiftf.lsp index fec210f8c956795cb4a7a739ca3d551aadf50abe..eb82f448dfbec735e2aa55bc99ae408628108f92 100644 --- a/shiftf.lsp +++ b/shiftf.lsp @@ -79,4 +79,13 @@ x y))) 1 2 foo) +;;; Test that SHIFTF returns a single value, even though the first +;;; place has multiple values. +(deftest shiftf.7 + (let ((x 'a) (y 'b)) + (values + (multiple-value-list (shiftf (values x y) (floor 10 3))) + x y)) + (a) 3 1) + ;;; Need to add more shiftf tests here