anchor.diff:    ((ranged-weapon :accessor ranged-weapon)
      (poisonous :accessor poisonous)))
   
  -(defparameter *player* (make-instance 'player :y 0 :x 0 :color *random-color*))
  +(defparameter *player* (make-instance 'player :y 0 :x 0))
   (defparameter *mobs* (list (make-instance 'mob :x (random 200) :y (random 200))))
   
   (defun get-player-location ()
  
positive.code:     (make-instance 'player :x 0
                             :y 0
                             :color sdl:*red*))
    (:method ((mob mob))
      (push (make-instance 'mob :x (random 200)
                                :y (random 200)
                                :color sdl:*red*) *mob*)))
  
  (defun text (string x y)
    "Writes text to the default sdl surface"
  
negative.code:   "This function renders  tiles across the default SDL window."
    (loop for i from 0 to 9 do
         (loop for j from 0 to 9 do
              (render (lookup-sprite (lookup-object (value-at i j))) (* i 8) (* j 8))
              (let ((val (layer-value-at (layer-at-player) i j)))
              (if (> val 0)
                (render (lookup-sprite (lookup-object val)) (* i 8) (* j 8)))))))
  
    (defun lookup-object (id)
    (gethash id *object-lookup-table*))
  
  (defun lookup-sprite (object)
  