anchor.diff:            (flexi-streams:octets-to-string (body response)
                                       :external-format external-format))
       response))
  -    
  +
   (defun get-object (bucket key &key
                      when-modified-since
                      unless-modified-since
  
positive.code:                                  :content (log-serialize setup)))
           (retried nil))
      (loop
       (handler-case 
           (return (submit-request request))
         (invalid-logging-target (condition)
           (when (starts-with "You must give the log-delivery group"
  
negative.code:                                         :bucket bucket
                                          :key key
                                          :parameters parameters))))
  
      (values (http-headers response)
              (http-code response)
              (http-phrase response))))
  