anchor.diff:    "Sends a CouchDB request to DB."
     (apply #'couch-request (database-server db) (strcat (database-name db) "/" uri) all-keys))
   
  -(defmacro handle-request ((result-var db uri &rest db-request-keys &key &allow-other-keys) &body expected-responses)
  +(defmacro handle-request ((result-var db uri &rest db-request-keys &key &allow-other-keys)
  +                          &body expected-responses)
     "Provides a nice interface to the relatively manual, low-level status-code checking that Chillax
   uses to understand CouchDB's responses. The format for EXPECTED-RESPONSES is the same as the CASE
   macro: The keys should be either keywords, or lists o keywords (not evaluated), which correspond to
  
positive.code: (defgeneric database-server (database)
    (:documentation "Returns the server object with which DATABASE is associated."))
  (defgeneric database-name (database)
    (:documentation "Returns the name of the database, a string.")
    (:method :around (database) (declare (ignore database))
      (url-encode (call-next-method))))
  
  ;; Database functions
  (defun print-database (db stream)
  
negative.code: ;;; Basic database API
  ;;;
  
  ;; Database protocol
  (defgeneric make-db-object (server name)
    (:documentation
  