anchor.diff:  
   (defun scrape-gatherer-and-insert-mtg-card-into-db (m-id &key (db *default-database-connection*))
     "Query the Gatherer database for the Multiverse ID *m-id* card, parse all data, and if the record does not already exist, store in the local database."
  +  ;; Wrap local database connectivity in `(postmodern:with-connection db ...)`
  +  ;; This function should also check if all the data matches, using card-matches-p, and update instead of insert.
     (let* ((m-id-str (format nil "~D" m-id))
            (query (list (cons "multiverseid" m-id-str)))
            (str (drakma:http-request "http://gatherer.wizards.com/Pages/Card/Details.aspx"
  
positive.code:                  (when (class-value-p tag)
                     (setf spell-type (strip-string (stp:string-value tag)))
                     (format t "Type: ~A, " spell-type))))
                ((search "setRow" (stp:attribute-value div "id") :from-end t)
                 (stp:do-children (tag div)
                   (when (class-value-p tag)
                     (setf set-name (strip-string (stp:string-value tag)))
                     ; (setf the-set-id (get-expansion-id-by-name set-name))
                     (format t "Set: ~A. " set-name))))
                (t nil))))
      (setf image (format nil "~D-~A.jpg" m-id (string-downcase (substitute #\- #\Space name))))
      (setf full-image-path (concatenate 'string (namestring *default-img-dir*) image))
  
negative.code:   (and (typep obj 'stp:element)
         (equal (stp:local-name obj) "div")
         (equal (stp:attribute-value obj "class") "value")))
  
  (defun class-cardtextbox-p (obj)
    "Test to verify object *obj* is an STP element div with class attribute value 'cardtextbox'."
    (and (typep obj 'stp:element)
         (equal (stp:local-name obj) "div")
         (equal (stp:attribute-value obj "class") "cardtextbox")))
  
  (defun img-tag-p (obj)
    "Test to verify object *obj* is an STP element img."
  