25 |
#(a b c e f d) |
#(a b c e f d) |
26 |
5) |
5) |
27 |
|
|
28 |
|
(deftest rotatef.1 |
29 |
|
(let ((x (vector 0 1 2))) |
30 |
|
(values |
31 |
|
(rotatef (aref x (aref x 0)) (aref x (aref x 1)) (aref x (aref x 2))) |
32 |
|
x)) |
33 |
|
nil |
34 |
|
#(1 2 0)) |
35 |
|
|
36 |
|
(deftest rotatef.2 |
37 |
|
(let ((x (vector 0 1 2 3 4 5 6 7 8 9))) |
38 |
|
(values |
39 |
|
(rotatef (aref x (aref x 0)) |
40 |
|
(aref x (aref x 1)) |
41 |
|
(aref x (aref x 2)) |
42 |
|
(aref x (aref x 3)) |
43 |
|
(aref x (aref x 4)) |
44 |
|
(aref x (aref x 5)) |
45 |
|
(aref x (aref x 6)) |
46 |
|
(aref x (aref x 7)) |
47 |
|
(aref x (aref x 8)) |
48 |
|
(aref x (aref x 9))) |
49 |
|
x)) |
50 |
|
nil |
51 |
|
#(1 2 3 4 5 6 7 8 9 0)) |
52 |
|
|
53 |
|
(deftest rotatef.3 |
54 |
|
(rotatef) |
55 |
|
nil) |
56 |
|
|
57 |
|
(deftest rotatef.4 |
58 |
|
(let ((x 10)) |
59 |
|
(values |
60 |
|
x |
61 |
|
(rotatef x) |
62 |
|
x)) |
63 |
|
10 nil 10) |
64 |
|
|
65 |
|
(deftest rotatef.5 |
66 |
|
(let ((x 'a) (y 'b)) |
67 |
|
(values x y (rotatef x y) x y)) |
68 |
|
a b nil b a) |
69 |
|
|
70 |
|
|
71 |
;;; Need to add more tests for ROTATEF here |
;;; Need to add more tests for ROTATEF here |