anchor.diff:                     (let* ((pt-list (split-sequence #\/ (strip-string (stp:string-value tag))))
                             (pow (car pt-list))
                             (tuf (cadr pt-list)))
  -                     (setf power (parse-integer (strip-string pow) :junk-allowed t)
  -                           toughness (parse-integer (strip-string tuf) :junk-allowed t)))
  +                     (setf power (if (search "*" pow)
  +                                     -1
  +                                     (parse-integer (strip-string pow) :junk-allowed t))
  +                           toughness (if (search "*" tuf)
  +                                         -1
  +                                         (parse-integer (strip-string tuf) :junk-allowed t))))
                      ; (format t "P/T: ~@{~A~^/~}, " power toughness)
                      )))
                 ((search "setRow" (stp:attribute-value div "id") :from-end t)
  
positive.code:                            (postmodern:with-connection db
                               (get-expansion-id-by-name set-name))
                           (error ()
                             (format t "~%;; ~A expansion not found in local database. Creating...")
                             (postmodern:with-connection db
                               (let* ((set-name-formatted (string-downcase (substitute #\- #\Space set-name)))
                                      (exp-symb (format nil "set-~A" set-name-formatted))
                                      (unc-symb (format nil "set-~A-uncommon" set-name-formatted))
                                      (rare-symb (format nil "set-~A-rare" set-name-formatted))
                                      (myth-symb (format nil "set-~A-mythic" set-name-formatted))
                                      (the-set (postmodern:make-dao 'rsn-mtg-expansion :name set-name :exp-symbol exp-symb :uncommon-symbol unc-symb :rare-symb :mythic-symbol myth-symb :total-cards 0)))
                                 (format t "~C[32;1m~C~C[0m" #\Escape (code-char #x2714) #\Escape)
                                 (id the-set))))))
             (the-card nil))
  
negative.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))
  