anchor.diff:                                     :content-type content-type
                                      :content-length content-length
                                      :content content))))
  -            
  +
   
   (defun put-vector (vector bucket key &key
                      start end
  
positive.code:                                  :sub-resource "acl"
                                   :content (acl-serialize acl))))
    (submit-request request)))
                   
  
  (defun make-public (&key bucket key
                      ((:credentials *credentials*) *credentials*))
  
negative.code:                                         :bucket bucket
                                          :key key
                                          :parameters parameters))))
  
      (values (http-headers response)
              (http-code response)
              (http-phrase response))))
  