Commits (1)
...@@ -86,7 +86,7 @@ ...@@ -86,7 +86,7 @@
(when (= offset (parse-integer size)) (when (= offset (parse-integer size))
(return-from open-object-stream (make-concatenated-stream))) (return-from open-object-stream (make-concatenated-stream)))
;; Server supports range requests! ;; Server supports range requests!
(push (cons :range (format nil "bytes=~D-~D" offset size)) headers))) (push (cons :range (format nil "bytes=~D-~D" offset (1- size))) headers)))
(multiple-value-bind (s code) (multiple-value-bind (s code)
(http-client-request (http-object-store-http-client object-store) uri (http-client-request (http-object-store-http-client object-store) uri
:additional-headers headers :additional-headers headers
......