anchor.diff:                     metadata
                      (external-format :utf-8)
                      cache-control
  -                   content-encoding 
  +                   content-encoding
                      content-disposition
                      (content-type "text/plain")
                      expires
  
positive.code:                                    :content-type content-type
                                     :content-length content-length
                                     :content content))))
              
  
  (defun put-vector (vector bucket key &key
                     start end
  
negative.code:                                         :bucket bucket
                                          :key key
                                          :parameters parameters))))
  
      (values (http-headers response)
              (http-code response)
              (http-phrase response))))
  