1.0.23.64: fixed bug 395

[sbcl.git] / tests / stream.pure.lisp

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index 804e781..b35c61e 100644 (file)
--- 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))))