502 |
i a b c d e)) |
i a b c d e)) |
503 |
(a a a a a) 5 1 2 3 4 5) |
(a a a a a) 5 1 2 3 4 5) |
504 |
|
|
505 |
|
;;; Const fold tests |
506 |
|
|
507 |
|
(def-fold-test make-sequence.fold.1 |
508 |
|
(make-sequence 'list 5 :initial-element 'a)) |
509 |
|
(def-fold-test make-sequence.fold.2 |
510 |
|
(make-sequence 'vector 5 :initial-element 'a)) |
511 |
|
(def-fold-test make-sequence.fold.3 |
512 |
|
(make-sequence 'bit-vector 5 :initial-element 0)) |
513 |
|
(def-fold-test make-sequence.fold.4 |
514 |
|
(make-sequence 'string 5 :initial-element #\a)) |
515 |
|
|
516 |
;;; FIXME: Add tests for upgrading of character subtypes |
;;; FIXME: Add tests for upgrading of character subtypes |