+ #-sb-unicode
+ (let ((result (make-string length)))
+ (dotimes (i (length string) result)
+ (declare (fixnum i))
+ (setf (char string i) (code-char (read-byte stream)))))
+ #+sb-unicode
+ (let ((bytes (make-array length :element-type '(unsigned-byte 8))))
+ (declare (type (simple-array (unsigned-byte 8) (*)) bytes))
+ (read-sequence bytes stream)
+ (sb-ext:octets-to-string bytes)))