X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=77c29bcd95b0ece7f57df85db18526980d5a0dce;hb=a208de2a9ab6a63c27f3e6c291fea9f7c4d774a1;hp=e5296c8868fa0dc2503c7f8d1580a491b9e59840;hpb=0bc2d6ca22c988d65e37108afbb433e29689a528;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index e5296c8..77c29bc 100644
--- 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))