From 3224cf8947db6f2fab62965ac04b3d11c79d6d33 Mon Sep 17 00:00:00 2001 From: Zach Beane Date: Tue, 26 Apr 2016 13:46:11 -0400 Subject: [PATCH] Use ENCODE-KEY parameter when signing and making URLs. --- request.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/request.lisp b/request.lisp index b7dcbdd..c7c84e3 100644 --- a/request.lisp +++ b/request.lisp @@ -179,7 +179,8 @@ (write-string (url-encode (name (bucket request))) stream) (write-char #\/ stream)) (when (key request) - (write-string (url-encode (name (key request))) stream)) + (write-string (url-encode (name (key request)) :encode-slash nil) + stream)) (when (sub-resource request) (write-string "?" stream) (write-string (url-encode (sub-resource request)) stream))))))) @@ -194,7 +195,8 @@ (write-string (url-encode (name (bucket request))) stream) (write-char #\/ stream)) (when (key request) - (write-string (url-encode (name (key request))) stream)) + (write-string (url-encode (name (key request)) + :encode-slash nil) stream)) (when (sub-resource request) (write-string "?" stream) (write-string (url-encode (sub-resource request)) stream)))))) -- 2.11.4.GIT