299 |
(make-sequence '(simple-bit-vector 5) 5 :initial-element 0) |
(make-sequence '(simple-bit-vector 5) 5 :initial-element 0) |
300 |
#*00000) |
#*00000) |
301 |
|
|
302 |
|
(deftest make-sequence.49 |
303 |
|
(if (subtypep (class-of nil) 'sequence) |
304 |
|
(make-sequence (class-of nil) 0) |
305 |
|
nil) |
306 |
|
nil) |
307 |
|
|
308 |
|
(deftest make-sequence.50 |
309 |
|
(if (subtypep (class-of '(nil nil nil)) 'sequence) |
310 |
|
(make-sequence (class-of '(nil nil nil)) 3 :initial-element nil) |
311 |
|
'(nil nil nil)) |
312 |
|
(nil nil nil)) |
313 |
|
|
314 |
|
(deftest make-sequence.51 |
315 |
|
(loop for i from 1 to 40 |
316 |
|
for vec = (make-array 1 :element-type `(unsigned-byte ,i) |
317 |
|
:initial-element 1) |
318 |
|
for class = (class-of vec) |
319 |
|
nconc |
320 |
|
(if (subtypep class 'vector) |
321 |
|
(let ((vec2 (make-sequence class 1 :initial-element 1))) |
322 |
|
(unless (equalp vec vec) |
323 |
|
(list (list i vec class vec2)))) |
324 |
|
nil)) |
325 |
|
nil) |
326 |
|
|
327 |
|
(deftest make-sequence.52 |
328 |
|
(let ((class (class-of "aaaa"))) |
329 |
|
(if (subtypep class 'vector) |
330 |
|
(make-sequence class 4 :initial-element #\a) |
331 |
|
"aaaa")) |
332 |
|
"aaaa") |
333 |
|
|
334 |
|
(deftest make-sequence.53 |
335 |
|
(let ((class (class-of (make-array 4 :element-type 'base-char |
336 |
|
:fill-pointer 4 |
337 |
|
:adjustable t |
338 |
|
:initial-contents "aaaa")))) |
339 |
|
(if (subtypep class 'vector) |
340 |
|
(make-sequence class 4 :initial-element #\a) |
341 |
|
"aaaa")) |
342 |
|
"aaaa") |
343 |
|
|
344 |
|
(deftest make-sequence.54 |
345 |
|
(let ((class (class-of (make-array 4 :element-type 'character |
346 |
|
:fill-pointer 4 |
347 |
|
:adjustable t |
348 |
|
:initial-contents "aaaa")))) |
349 |
|
(if (subtypep class 'vector) |
350 |
|
(make-sequence class 4 :initial-element #\a) |
351 |
|
"aaaa")) |
352 |
|
"aaaa") |
353 |
|
|
354 |
|
(deftest make-sequence.55 |
355 |
|
(let ((class (class-of (make-array 4 :element-type 'character |
356 |
|
:initial-contents "aaaa")))) |
357 |
|
(if (subtypep class 'vector) |
358 |
|
(make-sequence class 4 :initial-element #\a) |
359 |
|
"aaaa")) |
360 |
|
"aaaa") |
361 |
|
|
362 |
|
(deftest make-sequence.56 |
363 |
|
(loop for i from 1 to 40 |
364 |
|
for vec = (make-array 1 :element-type `(unsigned-byte ,i) |
365 |
|
:adjustable t :fill-pointer 1 |
366 |
|
:initial-element 1) |
367 |
|
for class = (class-of vec) |
368 |
|
nconc |
369 |
|
(if (subtypep class 'vector) |
370 |
|
(let ((vec2 (make-sequence class 1 :initial-element 1))) |
371 |
|
(unless (equalp vec vec) |
372 |
|
(list (list i vec class vec2)))) |
373 |
|
nil)) |
374 |
|
nil) |
375 |
|
|
376 |
|
(deftest make-sequence.57 |
377 |
|
(make-sequence (find-class 'list) 4 :initial-element 'x) |
378 |
|
(x x x x)) |
379 |
|
|
380 |
|
(deftest make-sequence.58 |
381 |
|
(make-sequence (find-class 'cons) 4 :initial-element 'x) |
382 |
|
(x x x x)) |
383 |
|
|
384 |
;;; Keyword tests |
;;; Keyword tests |
385 |
|
|
386 |
(deftest make-sequence.allow-other-keys.1 |
(deftest make-sequence.allow-other-keys.1 |
475 |
t) |
t) |
476 |
t) |
t) |
477 |
|
|
478 |
|
(deftest make-sequence.error.16 |
479 |
|
(signals-error-always (make-sequence (find-class 'integer) 0) type-error) |
480 |
|
t t) |
481 |
|
|
482 |
;;; Order of execution tests |
;;; Order of execution tests |
483 |
|
|
484 |
(deftest make-sequence.order.1 |
(deftest make-sequence.order.1 |