177 |
(equalp (make-sequence 'string 5) (make-string 5)) |
(equalp (make-sequence 'string 5) (make-string 5)) |
178 |
t) |
t) |
179 |
|
|
180 |
|
(deftest make-sequence.27 |
181 |
|
(let ((len 10)) |
182 |
|
(loop for i from 1 to 40 |
183 |
|
for etype = `(unsigned-byte ,i) |
184 |
|
for type = `(vector ,etype) |
185 |
|
for vec = (make-sequence type len :initial-element 0) |
186 |
|
unless (and (typep vec type) |
187 |
|
(loop for i below len always (eql (elt vec i) 0))) |
188 |
|
collect (list i etype type vec))) |
189 |
|
nil) |
190 |
|
|
191 |
|
(deftest make-sequence.28 |
192 |
|
(let ((len 10)) |
193 |
|
(loop for i from 1 to 40 |
194 |
|
for etype = `(signed-byte ,i) |
195 |
|
for type = `(vector ,etype) |
196 |
|
for vec = (make-sequence type len :initial-element 0) |
197 |
|
unless (and (typep vec type) |
198 |
|
(loop for i below len always (eql (elt vec i) 0))) |
199 |
|
collect (list i etype type vec))) |
200 |
|
nil) |
201 |
|
|
202 |
|
(deftest make-sequence.29 |
203 |
|
(let ((len 10)) |
204 |
|
(loop for etype in '(short-float single-float double-float long-float) |
205 |
|
for type = `(vector ,etype) |
206 |
|
for elem = (coerce 1 etype) |
207 |
|
for vec = (make-sequence type len :initial-element elem) |
208 |
|
unless (and (typep vec type) |
209 |
|
(loop for i below len always (eql (elt vec i) elem))) |
210 |
|
collect (list etype type vec))) |
211 |
|
nil) |
212 |
|
|
213 |
|
(deftest make-sequence.30 |
214 |
|
(let ((len 10)) |
215 |
|
(loop for cetype in '(short-float single-float double-float long-float |
216 |
|
integer rational) |
217 |
|
for etype = `(complex ,cetype) |
218 |
|
for type = `(vector ,etype) |
219 |
|
for elem = (complex (coerce 1 cetype) (coerce -1 cetype)) |
220 |
|
for vec = (make-sequence type len :initial-element elem) |
221 |
|
unless (and (typep vec type) |
222 |
|
(loop for i below len always (eql (elt vec i) elem))) |
223 |
|
collect (list etype type vec))) |
224 |
|
nil) |
225 |
|
|
226 |
;;; Keyword tests |
;;; Keyword tests |
227 |
|
|
228 |
(deftest make-sequence.allow-other-keys.1 |
(deftest make-sequence.allow-other-keys.1 |