0.8.6.30:

[sbcl.git] / src / code / stream.lisp

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index e5296c8..77c29bc 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1224,7 +1224,9 @@
 (defun string-sout (stream string start end)
   (declare (type simple-string string)
           (type fixnum start end))
-  (let* ((string (coerce string '(simple-array character (*))))
+  (let* ((string (if (typep string '(simple-array character (*)))
+                    string
+                    (coerce string '(simple-array character (*)))))
         (current (string-output-stream-index stream))
         (length (- end start))
         (dst-end (+ length current))