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