X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=71adb3a77caa960ec3c45e8eafb60224cd4f5fd3;hb=ee5629ee974ee8ce7a1cb245a99e94f8943ffd90;hp=3065d162fe50f1f3f6ee496b04057816b0c45abc;hpb=9f175370f90a586b53ce086dce7fadf3cfb80ec4;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 3065d16..71adb3a 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1301,7 +1301,7 @@
   ;; end of the stream.
   (index-cache 0 :type index)
   ;; Requested element type
-  (element-type 'character))
+  (element-type 'character :type type-specifier))
 
 #!+sb-doc
 (setf (fdocumentation 'make-string-output-stream 'function)