anchor.diff:    (: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 (first *mobs*)) (y-pos (first *mobs*)) 2 2
  -                     :color (color *player*)))
  +;   (:method ((mob mob) x y)
  +;     (sdl:draw-box-* (x-pos (first *mobs*)) (y-pos (first *mobs*)) 2 2
  +;                     :color (color *player*)))
     (:method ((sprite sdl:surface) x y)    
       (sdl:draw-surface-at-* sprite x y)))
   
  
positive.code: (defclass aggro (mob)
    ((ranged-weapon :accessor ranged-weapon)
     (poisonous :accessor poisonous)))
  
  (defgeneric move (layer obj nx ny)
    (:method (layer (player player) nx ny)
  
negative.code:    (att :initarg :str :accessor att)
     (tool :initarg nil :accessor tool)))
  
  (defmacro make-container (name number-of-slots)
    `(defclass ,name () 
       ,(loop for i from 0 to number-of-slots
           collect (list (intern (concatenate 'string "slot-" (write-to-string i)))))))
  
  (defclass player (mob)
    ((layer :initform 0 :accessor layer)
  