anchor.diff:      (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*)))
  +  ;; (: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"
  
positive.code:   (:documentation "Renders a unit onto the default sdl window.")
    (:method ((player player) x y)
      (sdl:draw-surface-at-* (lookup-sprite 'player) (* x 8) (* y 8)))
    (:method ((mob mob) x y)
      (sdl:draw-box-* (x-pos *mob*) (y-pos *mob*) 2 2
                      :color (color *player*)))
    (:method ((sprite sdl:surface) x y)    
      (sdl:draw-surface-at-* sprite x y)))
  
  
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)
  