anchor.diff:      (when (db-info db) 
         db)))
   
  -(defun db-create (name &key (db-class 'database) server (server-class 'json-server))
  +(defun db-create (name &key (db-class 'database) server (server-class 'hash-server))
     "Creates a new CouchDB database. Returns a database object that can be used to operate on it."
     (let ((db (make-instance db-class
                              :name name
  
positive.code:       (:internal-server-error (error "Illegal database name: ~A" (name db)))
        (:not-found (error 'db-not-found :uri (db-namestring db))))))
  
  (defun db-connect (name &key (db-class 'database) server (server-class 'json-server))
    "Confirms that a particular CouchDB database exists. If so, returns a new database object that can
  be used to perform operations on it."
    (let ((db (make-instance db-class 
  
negative.code:   (:documentation
     "Sends an HTTP request to the CouchDB server represented by SERVER. Most of the keyword arguments
   for drakma:http-request are available as kwargs for this message.")
    (:method ((server server) uri &rest all-keys &key (content nil contentp) &allow-other-keys)
      (multiple-value-bind (response status-code)
          (apply #'http-request (strcat (server->url server) uri)
                 :content-type "application/json"
                 :external-format-out +utf-8+
                 :basic-authorization (with-slots (username password) server
                                        (when username (list username password)))
                 :content (if contentp (data->json server content) "")
                 all-keys)
        (values (json->data server response)
                (or (cdr (assoc status-code +status-codes+ :test #'=))
                    ;; The code should never get here once we know all the
                    ;; status codes CouchDB might return.
                    (error "Unknown status code: ~A. HTTP Response: ~A"
                           status-code response))))))
  
  (defun all-dbs (server)
    "Requests a list of all existing databases from SERVER."
  