17 |
(values (shiftf (aref x (incf i)) (aref x (incf i)) (incf i)) x i)) |
(values (shiftf (aref x (incf i)) (aref x (incf i)) (incf i)) x i)) |
18 |
d #(a b c e 5 f g h) 5) |
d #(a b c e 5 f g h) 5) |
19 |
|
|
20 |
|
(deftest shiftf.1 |
21 |
|
(let ((x 0)) |
22 |
|
(values |
23 |
|
x |
24 |
|
(shiftf x 1) |
25 |
|
x)) |
26 |
|
0 0 1) |
27 |
|
|
28 |
|
(deftest shiftf.2 |
29 |
|
(let ((x 'a) (y 'b) (z 'c)) |
30 |
|
(values |
31 |
|
x y z |
32 |
|
(shiftf x y z 'd) |
33 |
|
x y z)) |
34 |
|
a b c |
35 |
|
a |
36 |
|
b c d) |
37 |
|
|
38 |
|
(deftest shiftf.3 |
39 |
|
(let ((x (vector 0 1 2 3))) |
40 |
|
(values |
41 |
|
(copy-seq x) |
42 |
|
(shiftf (aref x (aref x 0)) |
43 |
|
(aref x (aref x 1)) |
44 |
|
(aref x (aref x 2)) |
45 |
|
(aref x (aref x 3)) |
46 |
|
'foo) |
47 |
|
(copy-seq x))) |
48 |
|
#(0 1 2 3) |
49 |
|
0 |
50 |
|
#(1 2 3 foo)) |
51 |
|
|
52 |
|
|
53 |
;;; Need to add more shiftf tests here |
;;; Need to add more shiftf tests here |