SHIFTF.7 expected results are wrong?
The test SHIFTF.7
is:
(LET ((X 'A) (Y 'B))
(VALUES (MULTIPLE-VALUE-LIST (SHIFTF (VALUES X Y) (FLOOR 10 3))) X Y))
with the expected results
(A)
3
1
I tried with clisp, ecl, and cmucl, and all returned
(A B)
3
1
The spec for
shiftf,
says for the return value of old-value-1
is
old-value-1---an object (the old value of the first place).
I think the test is interpreting this to mean to take first value from
the first place. Hence, (A)
. It's not really clear here what the
spec really means.
But later on, the spec says
...all values shift over to the left one place, and the value shifted out of place1 is returned.
This seems pretty clear that initial value of place1
is returned.
In this test, the initial value is (A B)
.