     (orc-battle-cycle)))
 
 (defun end-game ()
-  (when (player-dead)
+  (when (player-dead-p)
     (insertc "You have been killed. Game Over." "red" nil))
-  (when (monsters-dead)
+  (when (monsters-dead-p)
     (insertc "Congratulations! You have vanquished all of your foes." "green" t)))
 
 (define-derived-mode orc-battle-mode

(defclass monster nil ((health :initform (randval 10)))
  "A monster")

(defmethod monster-dead (m)
  (<= (monster-health m) 0))

(defmethod monster-health (m)


(defun phase-one ()
  (when (= orc-battle-player-current-turn 0) (phase-two))
  (unless (or (monsters-dead-p) (player-dead-p))
    (show-monsters)
    (player-attack)
    (decf orc-battle-player-current-turn)
