Commit f42bf48a authored by Eric Timmons's avatar Eric Timmons
Browse files

Make OBJECT-WRITE a bit more robust to different stream types

parent 0af3e486
......@@ -61,7 +61,7 @@
:element-type (stream-element-type in-stream)
:direction :output
:if-exists :supersede)
(uiop:copy-stream-to-stream in-stream s))))
(uiop:copy-stream-to-stream in-stream s :element-type (stream-element-type in-stream)))))
(defmethod call-with-open-object-stream ((object-store file-object-store) path thunk
&rest args
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment