Loading src/object-store-http.lisp +11 −1 Original line number Diff line number Diff line Loading @@ -92,8 +92,18 @@ :additional-headers headers :want-stream t :force-binary binary-p) (when (>= code 400) (when (= code 404) (ecase if-does-not-exist ((nil) (signal 'object-missing :store object-store :path path) (close s) (return-from open-object-stream nil)) (:error (close s) (cerror "Continue" 'object-missing :store object-store :path path)))) (when (and (>= code 400) (/= code 404)) ;; Something funky has happened.. (close s) (error "Unknown error!")) (when (and offset (not (equal accept-ranges "bytes"))) ;; Server doesn't support requesting ranges. We have to forward the Loading Loading
src/object-store-http.lisp +11 −1 Original line number Diff line number Diff line Loading @@ -92,8 +92,18 @@ :additional-headers headers :want-stream t :force-binary binary-p) (when (>= code 400) (when (= code 404) (ecase if-does-not-exist ((nil) (signal 'object-missing :store object-store :path path) (close s) (return-from open-object-stream nil)) (:error (close s) (cerror "Continue" 'object-missing :store object-store :path path)))) (when (and (>= code 400) (/= code 404)) ;; Something funky has happened.. (close s) (error "Unknown error!")) (when (and offset (not (equal accept-ranges "bytes"))) ;; Server doesn't support requesting ranges. We have to forward the Loading