(defmethod player-hits-enemy ((player player) (enemy simple-enemy) &rest args)
(cond
((eql (direction (car args)) :DOWN)
(setf (animation enemy) (flat-animation enemy))
(setf (active enemy) nil)
(defmethod player-hits-enemy ((player player) (enemy simple-enemy) &rest args)
(cond
((eql (direction (car args)) :DOWN)
(setf (animation enemy) (flat-animation enemy))
(setf (active enemy) nil)