anchor.diff:    (:documentation "Triggers a database compaction.")
     (:method ((db database))
       (handle-request (response db "_compact" :method :post :content "")
  -      (:accepted response)
  -      #+nil(:bad-content-type (error "Bad content type.")))))
  +      (:accepted response))))
   
   (defgeneric changes (db)
     (:documentation "Returns the changes feed for DB")
  
positive.code: (defgeneric copy-document (db from-id to-id &key)
    (:documentation "Copies a document's content in-database.")
    (:method ((db database) from-id to-id &key revision)
      (handle-request (response db from-id :method :copy
                                :additional-headers `(("Destination" . ,to-id))
                                :parameters `(,(when revision `("rev" . ,revision))))
        (:created response))))
  
negative.code:                                   &key (content nil contentp) &allow-other-keys)
    "This special :around reply wraps the standard SERVER reply and encodes/decodes JSON where
  appropriate, which makes for a nicer Lisp-side API."
    (multiple-value-bind (response status-code)
        (apply #'call-next-method server uri
               :content (if contentp
                            (with-output-to-string (s)
                              (json:encode content s))
                            "") all-keys)
      (values (json:parse response) status-code)))
  
  (defun all-dbs (server)
  