diff --git a/alexandria-1/io.lisp b/alexandria-1/io.lisp index 28bf5e6d82c73b09bcf20cac825354efc9c7aad3..28d744aed50ba5d9a2a6c91e21ec2eed3c9503d4 100644 --- a/alexandria-1/io.lisp +++ b/alexandria-1/io.lisp @@ -54,7 +54,8 @@ which is only sent to WITH-OPEN-FILE when it's not NIL." "Return the \"content\" of STREAM as a fresh string." (check-type buffer-size positive-integer) (let ((*print-pretty* nil)) - (with-output-to-string (datum) + (with-output-to-string (datum nil + :element-type (stream-element-type stream)) (let ((buffer (make-array buffer-size :element-type 'character))) (loop :for bytes-read = (read-sequence buffer stream)