-(defun simple-enemy-and-player (player enemy)
- (decf (power player))
- (setf (active enemy) nil)
- (setf (visible enemy) nil)
- (setf (colliding enemy) nil))
+;; (defun simple-enemy-and-player (player enemy)
+;; (decf (power player))
+;; (setf (active enemy) nil)
+;; (setf (visible enemy) nil)
+;; (setf (colliding enemy) nil))