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
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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