anchor.diff:  
   ;; CARD QUANTITY Table
   
  -(defclass rsn-mtg-quantity ()
  +(defclass rsn-mtg-inventory ()
     ((ID :col-type serial :initarg :id :reader id)
      (CARD-ID :col-type integer :initarg :card-id :accessor card-id)
      (PLAYER-ID :col-type integer :initarg :player-id :accessor player-id)
  
positive.code: (defmethod foil-quantity ((card rsn-mtg-card) (player rsn-mtg-player-profile))
    (let ((card-id (slot-value card 'card-id))
          (player-id (slot-value player 'player-id)))
      (postmodern:query (:select (:count '*) :from 'rsn-mtg-quantity
                                 :where (:and (:= 'card-id card-id)
                                              (:= 'player-id player-id)
                                              (:= 'is-foil t)))
  
negative.code:   (:keys id))
  
  (deftable rsn-mtg-deck
    (!dao-def))
  
  (defclass rsn-mtg-deck-cards ()
    ((ID :col-type serial :initarg :id :reader id)
  