anchor.diff:    (:use :cl)
     (:export #:make-blob-store
              #:submit-files2
  -           #:delete-blobs))
  +           #:delete-files))
   
   (in-package #:test-grid-gae-blobstore)
   
  
positive.code:                                     :parameters `(("keys" . ,(format nil "~{~A~^,~}" blob-keys))))
               (declare (ignore headers uri stream2 must-close))
               (if (/= 200 status-code)
                   (error "Error deleting blobs, the HTTP response code ~A: ~A" status-code reason-phrase)
                   body))))
      (let* ((filtered-keys (set-difference blob-keys *logs-to-keep* :test #'string=))
             (total (length filtered-keys))
  
negative.code: Example:
   (submit-files my-blobstore '((:flexi-streams . #P\"flexi-streams.log\")
                                (:cl-ppcre . #P\"cl-ppcre.log\")))
    => ((:flexi-streams . \"iv1b5xbp1z\")
        (:cl-ppcre . \"1lnnja5y4d\"))
  
  The ID in the ID-PATHNAME-ALIST may be either a string or a symbol,
  and must be unique when compared case insensitively.
  