anchor.diff:                  ; (format t "DAO instantiated: ~S " the-card)
                   (postmodern:save-dao the-card)
                   ; (format t "Insert successful~A" ". ")
  -                (download-and-save-card-image m-id full-image-path)
  +                (unless (probe-file full-image-path)
  +                  (download-and-save-card-image m-id full-image-path))
                   (format t "~C[32;1m~C~C[0m" #\Escape (code-char #x2714) #\Escape))
               ;(error () (format t "~C[31;1m~C~C[0m" #\Escape (code-char #x2718) #\Escape))
               ))
  
positive.code: (defun sync-db-from-gatherer (&key (db *default-database-connection*) (update-p nil) (verbose nil))
    "Calls the web-scraper to search the official Gatherer DB, and builds DAOs for each object not in the local database."
    (format t "~%;; Syncing local database ~{~A~} from Gatherer..." (last db))
    (loop for i below 1000 ;; set this number low for testing; as of Journey into Nyx there are under 400,000 cards in Gatherer
          do (let ((m-id (+ i 1)))
               (if (and (card-exists-p m-id :db db)
                        (not update-p))
  
negative.code:                           (tuf (cadr pt-list)))
                       (setf power (if (search "*" pow)
                                       -1
                                       (handler-case
                                           (parse-integer (strip-string pow))
                                         (error () -406)))
                             toughness (if (search "*" tuf)
                                           -1
                                           (handler-case
                                               (parse-integer (strip-string tuf))
                                             (error () -406)))))
                     ; (format t "P/T: ~@{~A~^/~}, " power toughness)
                     )))
                ((search "setRow" (stp:attribute-value div "id") :from-end t)
  