 
 (defmethod monster-hit (m x)
   (decf (oref m health) x)
-  (if (monster-dead m)
+  (if (monster-dead-p m)
       (progn (insertc "You killed the " "green" nil)
              (insertc (symbol-name (object-class m)) "green" nil)
              (insertc "! " "green" nil)

                         orc-battle-monster-builders) "monster"))
             (make-vector orc-battle-monster-num nil))))

(defun monsters-dead ()
  (every 'monster-dead orc-battle-monsters))

(defun show-monsters ()
  (newline)


(defmethod monster-hit ((m hydra) x)
  (decf (oref m health) x)
  (if (monster-dead-p m)
      (progn (insert "The corpse of the fully decapitated and decapacitated hydra falls to the floor!")
             (newline))
    (progn (insert "You lop off ")
