Skip to content
Snippets Groups Projects
Commit 817679e7 authored by Robert Strandh's avatar Robert Strandh Committed by Daniel Kochmański
Browse files

Added a test for the number of values returned by SHIFTF.

parent 4416abfe
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment