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 *mob*) (y-pos *mob*) 2 2
  -                    :color (color *player*)))
  +  ;; (: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)))
   
  
positive.code: (defun on-button-down-event (button)  
    "These function are run when a mouse-button-down event is detected."
    (declare (ignore button))
    (when (sdl:mouse-left-p)
      (setf *random-color*
            (sdl:color :r (random 255)
                       :g (random 255)
                       :b (random 255)))))
  
  (defun on-quit-event ()
    "Run this code when the quit-event is detected prior to exiting."
  
negative.code:   ((ranged-weapon :accessor ranged-weapon)
     (poisonous :accessor poisonous)))
  
  (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 ()
  