diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp index a79dd75ad6d3c6fd721a279b2edcbaf74f998a94..b603f7cd3d9e7271d49d72be3727aef86a421a24 100644 --- a/ansi-tests/make-sequence.lsp +++ b/ansi-tests/make-sequence.lsp @@ -223,6 +223,29 @@ collect (list etype type vec))) nil) +;;; Other type specifiers + +(deftest make-sequence.31 + (make-sequence '(simple-string) 10 :initial-element #\X) + "XXXXXXXXXX") + +(deftest make-sequence.32 + (make-sequence '(simple-string 10) 10 :initial-element #\X) + "XXXXXXXXXX") + +(deftest make-sequence.33 + (make-sequence '(string) 10 :initial-element #\X) + "XXXXXXXXXX") + +(deftest make-sequence.34 + (make-sequence '(vector) 10 :initial-element nil) + #(nil nil nil nil nil nil nil nil nil nil)) + +(deftest make-sequence.35 + (make-sequence '(simple-vector) 10 :initial-element nil) + #(nil nil nil nil nil nil nil nil nil nil)) + + ;;; Keyword tests (deftest make-sequence.allow-other-keys.1