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: 
  (defclass tool (item) ())
  
  (defclass npc (unit)
    ((race       :accessor race :initform 'human :initarg :race)
     (x-position :initform 100)
     (y-position :initform 100)
     (weapon     :initform nil)))
  
  (defclass container (item)
    ((slot-1 :initform nil)
     (slot-2 :initform nil)
     (slot-3 :initform nil)
  
negative.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))
    (push (sdl:load-image filename) sdl:*default-image-path*))
  
  (defun initialize-sprite-lookup-table ()
    "This function initializes the *sprite-lookup-value* with it's starting values."
  