anchor.diff:        (unwind-protect
              (put-stream path stream content-length :content-type (or content-type (drakma:header-value :content-type headers))
                                                     :content-encoding (or (drakma:header-value :content-encoding headers) "identity")))
  -      (if must-close
  -          (close body-stream)
  -          (close stream)))))
  +      (close body-stream)
  +      (close stream))))
   
   (define-api-call (metadata (path) ("file_limit"
                                      "hash"
  
positive.code: (defun put-stream (path stream length &key (content-type "application-actet-stream") (content-encoding "identity"))
    (let* ((to-send length)
           (uploading-cont
             (http-request (make-instance 'api-content-request :path (list "files_put/auto" path)
                                                               :method :put
                                                               :headers `(("Content-Length" . ,to-send)
                                                                          ("Content-Type" . ,content-type)
  
negative.code:   (http-request (make-instance 'api-content-request :path (list "files/auto" path)
                                                      :params parameters)))
  
  (defun maybe-add-leading-slash (path)
    (if (eql #\/ (aref path 0))
        path
        (concatenate 'string "/" path)))
  
  (defun put-file (path file-path)
    (with-open-file (stream file-path
                            :direction :input
  