anchor.diff:            t
             nil))))
   
  -(defun card-matches-p (m-id document &key (db *default-database-connection*))
  -  "Compares the card DAO in the local database against Gatherer to see if all the fields match."
  +(defun card-matches-p (m-id card-values &key (db *default-database-connection*))
  +  "Compares the card DAO in the local database against card-values list parsed from Gatherer to see if all the fields match."
     (let* ((m-id-str (format nil "~D" m-id))
            (the-card nil))
       (postmodern:with-connection db
         (setf the-card (handler-case (postmodern:get-dao 'rsn-mtg-card (get-card-id-by-multiverse-id m-id)) (error () nil))))
  -    (multiple-value-bind (name mana-cost color spell-type collectors-num cmc card-text flavor-text power toughness set-name rarity artist image the-set-id)
  -        (parse-card m-id document)
  +    (destructuring-bind (name mana-cost color spell-type collectors-num cmc card-text flavor-text power toughness set-name rarity artist image)
  +        card-values
         (if (and the-card
                  (string-equal (name the-card) name)
                  (string-equal (mana-cost the-card) mana-cost)
  
positive.code:           t
            nil))))
  
  (defun valid-m-id-p (m-id)
    "Queries the Gatherer database to test if Multiverse ID *m-id* returns a card or an error."
    ;; An invalid Multiverse ID redirects to Gatherer search page.  Not ideal, but that can be anticipated.
    t)
  
  (defun scrape-gatherer-and-insert-mtg-card-into-db (m-id document &key (db *default-database-connection*))
    "Query the Gatherer database for the Multiverse ID *m-id* card, parse all data; if the record already exists, update it, or insert it into the local database."
    (multiple-value-bind (name mana-cost color spell-type collectors-num converted-mana-cost card-text flavor-text power toughness set-name rarity artist image)
        (parse-card m-id document)
      (let* ((full-image-path (concatenate 'string (namestring *default-img-dir*) image))
             (the-set-id (handler-case (postmodern:with-connection db (get-expansion-id-by-name set-name)) (error () nil)))
             (the-card nil))
  
negative.code:                    )))
                (t nil))))
      (setf image (format nil "~D-~A.jpg" m-id (string-downcase (substitute #\- #\Space name))))
      (return-from parse-card (list name mana-cost color spell-type collectors-num converted-mana-cost card-text flavor-text power toughness set-name rarity artist image))))
  
  (defun download-and-save-card-image (m-id path)
    "Downloads and saves to disk the MTG card image for Multiverse ID *m-id* to Pathname *path*. Uses AWHILE macro from ARNESI package."
  