sb-bsd-sockets: Fix error code handling on Windows

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

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 3065d16..71adb3a 100644 (file)
--- 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)