X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.pure.lisp;h=b35c61ee0549bccda07c43a2adeb00a884acf7de;hb=4bf2de6a2adff75459cf218c8bff67f6cdb91211;hp=804e781f25215775aa69b254efe4b453b81bb65a;hpb=34652b637f023fb24cf76df53e6a1936e94ce9ec;p=sbcl.git

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index 804e781..b35c61e 100644
--- a/tests/stream.pure.lisp
+++ b/tests/stream.pure.lisp
@@ -332,3 +332,8 @@
                  (read-byte stream))
                (assert (not (listen stream)))))
         (ignore-errors (delete-file listen-testfile-name))))))
+
+(with-test (:name :bug-395)
+  (let ((v (make-array 5 :fill-pointer 0 :element-type 'standard-char)))
+    (format v "foo")
+    (assert (equal (coerce "foo" 'base-string) v))))