From 94ea0f43a6c219ef1d9d203dc75b712a1159a086 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 25 Sep 2004 20:32:52 +0000
Subject: [PATCH] Added tests for various unusual sequence type specifiers

---
 ansi-tests/make-sequence.lsp | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp
index a79dd75a..b603f7cd 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
-- 
GitLab