anchor.diff:    ((burning :accessor burning :initform nil)))
   
   (defclass grass (tile burnable) ())
  +
   (defclass abyss (tile)
     ((blocks-light :initform t)
      (blocks-move :initform t)))
  
positive.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.")
  
negative.code:           max
            number)))
  
  (defclass player (mob)
    ((layer :initform 0 :accessor layer)
     (xp :initarg :xp :accessor xp)))
  
  (defclass aggro (mob)
    ((ranged-weapon :accessor ranged-weapon)
     (poisonous :accessor poisonous)))
  
  