9 |
(let ((x (make-sequence 'list 4))) |
(let ((x (make-sequence 'list 4))) |
10 |
(and (eql (length x) 4) |
(and (eql (length x) 4) |
11 |
(listp x) |
(listp x) |
12 |
|
#+:ansi-tests-strict-initial-element |
13 |
(loop for e in x always (eql (car x) e)) |
(loop for e in x always (eql (car x) e)) |
14 |
t)) |
t)) |
15 |
t) |
t) |
22 |
(let ((x (make-sequence 'cons 4))) |
(let ((x (make-sequence 'cons 4))) |
23 |
(and (eql (length x) 4) |
(and (eql (length x) 4) |
24 |
(listp x) |
(listp x) |
25 |
|
#+:ansi-tests-strict-initial-element |
26 |
(loop for e in x always (eql (car x) e)) |
(loop for e in x always (eql (car x) e)) |
27 |
t)) |
t)) |
28 |
t) |
t) |
38 |
(deftest make-sequence.6 |
(deftest make-sequence.6 |
39 |
(let ((s (make-sequence 'string 10))) |
(let ((s (make-sequence 'string 10))) |
40 |
(and (eql (length s) 10) |
(and (eql (length s) 10) |
41 |
|
#+:ansi-tests-strict-initial-element |
42 |
(loop for e across s always (eql e (aref s 0))) |
(loop for e across s always (eql e (aref s 0))) |
43 |
t)) |
t)) |
44 |
t) |
t) |
47 |
(make-sequence 'simple-string 10 :initial-element #\a) |
(make-sequence 'simple-string 10 :initial-element #\a) |
48 |
"aaaaaaaaaa") |
"aaaaaaaaaa") |
49 |
|
|
50 |
|
|
51 |
(deftest make-sequence.8 |
(deftest make-sequence.8 |
52 |
(let ((s (make-sequence 'simple-string 10))) |
(let ((s (make-sequence 'simple-string 10))) |
53 |
(and (eql (length s) 10) |
(and (eql (length s) 10) |
54 |
|
#+:ansi-tests-strict-initial-element |
55 |
(loop for e across s always (eql e (aref s 0))) |
(loop for e across s always (eql e (aref s 0))) |
56 |
t)) |
t)) |
57 |
t) |
t) |
63 |
(deftest make-sequence.10 |
(deftest make-sequence.10 |
64 |
(let ((x (make-sequence 'vector 10))) |
(let ((x (make-sequence 'vector 10))) |
65 |
(and (eql (length x) 10) |
(and (eql (length x) 10) |
66 |
|
#+:ansi-tests-strict-initial-element |
67 |
(loop for e across x always (eql e (aref x 0))) |
(loop for e across x always (eql e (aref x 0))) |
68 |
t)) |
t)) |
69 |
t) |
t) |
79 |
(deftest make-sequence.12 |
(deftest make-sequence.12 |
80 |
(let ((x (make-sequence 'simple-vector 10))) |
(let ((x (make-sequence 'simple-vector 10))) |
81 |
(and (eql (length x) 10) |
(and (eql (length x) 10) |
82 |
|
#+:ansi-tests-strict-initial-element |
83 |
(loop for e across x always (eql e (aref x 0))) |
(loop for e across x always (eql e (aref x 0))) |
84 |
t)) |
t)) |
85 |
t) |
t) |
95 |
(deftest make-sequence.14 |
(deftest make-sequence.14 |
96 |
(let ((x (make-sequence '(vector *) 10))) |
(let ((x (make-sequence '(vector *) 10))) |
97 |
(and (eql (length x) 10) |
(and (eql (length x) 10) |
98 |
|
#+:ansi-tests-strict-initial-element |
99 |
(loop for e across x always (eql e (aref x 0))) |
(loop for e across x always (eql e (aref x 0))) |
100 |
t)) |
t)) |
101 |
t) |
t) |
111 |
(deftest make-sequence.16 |
(deftest make-sequence.16 |
112 |
(let ((x (make-sequence '(simple-vector *) 10))) |
(let ((x (make-sequence '(simple-vector *) 10))) |
113 |
(and (eql (length x) 10) |
(and (eql (length x) 10) |
114 |
|
#+:ansi-tests-strict-initial-element |
115 |
(loop for e across x always (eql e (aref x 0))) |
(loop for e across x always (eql e (aref x 0))) |
116 |
t)) |
t)) |
117 |
t) |
t) |
127 |
(deftest make-sequence.18 |
(deftest make-sequence.18 |
128 |
(let ((x (make-sequence '(string *) 10))) |
(let ((x (make-sequence '(string *) 10))) |
129 |
(and (eql (length x) 10) |
(and (eql (length x) 10) |
130 |
|
#+:ansi-tests-strict-initial-element |
131 |
(loop for e across x always (eql e (aref x 0))) |
(loop for e across x always (eql e (aref x 0))) |
132 |
t)) |
t)) |
133 |
t) |
t) |
143 |
(deftest make-sequence.20 |
(deftest make-sequence.20 |
144 |
(let ((x (make-sequence '(simple-string *) 10))) |
(let ((x (make-sequence '(simple-string *) 10))) |
145 |
(and (eql (length x) 10) |
(and (eql (length x) 10) |
146 |
|
#+:ansi-tests-strict-initial-element |
147 |
(loop for e across x always (eql e (aref x 0))) |
(loop for e across x always (eql e (aref x 0))) |
148 |
t)) |
t)) |
149 |
t) |
t) |