anchor.diff:  (defun create-db (name &key (prototype =database=) (server =json-server=))
     "Creates a new CouchDB database. Returns a database object that can be used to operate on it."
     (let ((db (create prototype 'server server 'name name)))
  -    (handle-request (response (db-request db :method :put))
  +    (handle-request (response (db-request db "" :method :put))
         (:created db)
         (:internal-server-error (error "Illegal database name: ~A" name))
         (:precondition-failed (error 'db-already-exists :uri (db-namestring db))))))
  
positive.code: documentation, since it may result in duplicate documents because of proxies and other network
  intermediaries.")
    (:reply ((db =database=) doc)
      (handle-request (response (db-request db :method :post :content doc))
        ((:created :accepted) response)
        (:conflict (error 'document-conflict :doc doc)))))
  
  (defmessage delete-document (db id revision)
    (:documentation "Deletes an existing document.")
    (:reply ((db =database=) id revision)
      (handle-request (response (db-request db :method :delete
                                            :uri (format nil "~A?rev=~A" id revision)))
        (:ok response))))
  
  (defmessage copy-document (db from-id to-id &key)
    (:documentation "Copies a document's content in-database.")
    (:reply ((db =database=) from-id to-id &key revision)
      (handle-request (response (db-request db :uri from-id :method :copy
                                            :additional-headers `(("Destination" . ,to-id))
                                            :parameters `(,(when revision `("rev" . ,revision)))))
        (:created response))))
  
negative.code: (defmessage put-document (db id doc &key)
    (:documentation "Puts a document into DB, using ID.")
    (:reply ((db =database=) id doc &key batch-ok-p)
      (handle-request (response (db-request db id :method :put :content doc
                                            :parameters (when batch-ok-p '(("batch" . "ok")))))
        ((:created :accepted) response)
        (:conflict (error 'document-conflict :id id :doc doc)))))
  