anchor.diff:            max
             number)))
   
  -(defclass player (npc)
  +(defclass player (mob)
     ((layer :initform 0 :accessor layer)
  -   (level :initarg :level :accessor level)
  -   (xp :initarg :xp :accessor xp)
  -   (hp :initarg :hp :accessor hp)
  -   (def :initarg :dex :accessor def)
  -   (att :initarg :str :accessor att)))
  -
  -(defclass mob (npc)
  +   (xp :initarg :xp :accessor xp)))
  +
  +(defclass aggro (mob)
     ((ranged-weapon :accessor ranged-weapon)
      (poisonous :accessor poisonous)))
   
  
positive.code:   ((burning :accessor burning :initform nil)))
  
  (defclass grass (tile burnable) ())
  (defclass abyss (tile)
    ((blocks-light :initform t)
     (blocks-move :initform t)))
  
negative.code: ;;              (values `(format nil "(defparameter ~A ~A)" ',sym1 ,path)
  ;;                      `(format nil "(defvar ~A)" ,sym2))))
  
  
  ;; Item Dictionary
  (defparameter *object-lookup-table* (make-hash-table)
    "This hash-table will contain a set of object-id-numbers/object-name pairs.")
  