X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.pure.lisp;h=e59ab96968b1e92133b005707ea5a46cc8100fc7;hb=380ea897e2c12a01547f918f73e8a1db0a3a0373;hp=2217ee4bf7dd8dbeccd7045f8828ebf40faad326;hpb=8acf21d3c2069a7ba1de3c3c139ef22215fcbcea;p=sbcl.git

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index 2217ee4..e59ab96 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -175,3 +175,15 @@
   (let* ((x #(1 2 3))
          (y (make-array 2 :displaced-to x :displaced-index-offset 1)))
     (assert (= (position 2 y) 0))))
+
+;;; (SIMPLE-STRING) is a legal type specifier for creation functions
+(let ((a (make-sequence '(simple-string) 5))
+      (b (concatenate '(simple-string) "a" "bdec"))
+      (c (map '(simple-string) 'identity "abcde"))
+      (d (merge '(simple-string) "acd" "be" 'char>))
+      (e (coerce '(#\a #\b #\c #\e #\d) '(simple-string))))
+  (assert (= (length a) 5))
+  (assert (string= b "abdec"))
+  (assert (string= c "abcde"))
+  (assert (string= d "beacd"))
+  (assert (string= e "abced")))