anchor.diff:  ;;              (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.")
  
positive.code: 
  (defun add-sprite-to-lookup-table (name filename)
    "This function adds a sprite/path pair to the *sprite-lookup-table* hash-table."
    (setf (gethash name *sprite-lookup-table*) (sdl:load-image filename)))
  
  (defun initialize-sprite-lookup-table ()
    "This function initializes the *sprite-lookup-value* with it's starting values."
  
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)))
  
  