Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13441/tests

Modified Files:
	seq.pure.lisp 
Log Message:
0.8.15.3:
	Well, as one-line patches go, that was pretty bad.  Fix the
	(SIGNED-BYTE N) streams problem, and additionally fix
	(SIMPLE-STRING) as a type specifier for sequence creators.


Index: seq.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/seq.pure.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- seq.pure.lisp	30 Sep 2004 13:48:50 -0000	1.10
+++ seq.pure.lisp	30 Sep 2004 20:20:28 -0000	1.11
@@ -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")))