anchor.diff:                                          :bucket bucket
                                           :key key
                                           :parameters parameters))))
  -                                                                                
  +
       (values (http-headers response)
               (http-code response)
               (http-phrase response))))
  
positive.code:                                  :sub-resource "acl"
                                   :content (acl-serialize acl))))
    (submit-request request)))
                   
  
  (defun make-public (&key bucket key
                      ((:credentials *credentials*) *credentials*))
  
negative.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"
  