38 |
#(5 4 3 2 1) |
#(5 4 3 2 1) |
39 |
#(1 2 3 4 5)) |
#(1 2 3 4 5)) |
40 |
|
|
41 |
(deftest reverse-bitstring.1 |
(deftest reverse-nonsimple-vector.3 |
42 |
|
(let* ((x (make-array 10 :initial-contents '(1 2 3 4 5 6 7 8 9 10) |
43 |
|
:fill-pointer 5)) |
44 |
|
(y (reverse x))) |
45 |
|
y) |
46 |
|
#(5 4 3 2 1)) |
47 |
|
|
48 |
|
(deftest reverse-bit-vector.1 |
49 |
(reverse #*) |
(reverse #*) |
50 |
#*) |
#*) |
51 |
|
|
52 |
(deftest reverse-bitstring.2 |
(deftest reverse-bit-vector.2 |
53 |
(let ((x #*000110110110)) |
(let ((x #*000110110110)) |
54 |
(values (reverse x) x)) |
(values (reverse x) x)) |
55 |
#*011011011000 |
#*011011011000 |
56 |
#*000110110110) |
#*000110110110) |
57 |
|
|
58 |
|
(deftest reverse-bit-vector.3 |
59 |
|
(let* ((x (make-array 10 :initial-contents '(0 0 0 1 1 0 1 0 1 0) |
60 |
|
:fill-pointer 5 |
61 |
|
:element-type 'bit)) |
62 |
|
(y (reverse x))) |
63 |
|
y) |
64 |
|
#*11000) |
65 |
|
|
66 |
(deftest reverse-string.1 |
(deftest reverse-string.1 |
67 |
(reverse "") |
(reverse "") |
68 |
"") |
"") |
73 |
"011011011000" |
"011011011000" |
74 |
"000110110110") |
"000110110110") |
75 |
|
|
76 |
|
(deftest reverse-string.3 |
77 |
|
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list) |
78 |
|
:fill-pointer 5 |
79 |
|
:element-type 'character)) |
80 |
|
(y (reverse x))) |
81 |
|
y) |
82 |
|
"edcba") |
83 |
|
|
84 |
|
(deftest reverse-string.4 |
85 |
|
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list) |
86 |
|
:fill-pointer 5 |
87 |
|
:element-type 'base-char)) |
88 |
|
(y (reverse x))) |
89 |
|
y) |
90 |
|
"edcba") |
91 |
|
|
92 |
(deftest reverse-error.1 |
(deftest reverse-error.1 |
93 |
(catch-type-error (reverse 'a)) |
(catch-type-error (reverse 'a)) |
94 |
type-error) |
type-error) |