 
 (defun random-monster ()
   (let ((m (aref orc-battle-monsters (random (length orc-battle-monsters)))))
-    (if (monster-dead m)
+    (if (monster-dead-p m)
         (random-monster)
         m)))
 

    (orc-battle-cycle)))

(defun end-game ()
  (when (player-dead)
    (insertc "You have been killed. Game Over." "red" nil))
  (when (monsters-dead)
    (insertc "Congratulations! You have vanquished all of your foes." "green" t)))

(define-derived-mode orc-battle-mode

               (insert "That is not a valid monster number.")
               (pick-monster))
        (let ((m (aref orc-battle-monsters (1- x))))
          (if (monster-dead-p m)
              (progn (newline)
                     (insert "That monster is already dead.")
                     (pick-monster))
