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


(defun show-monsters ()
  (newline)
  (insert "Your foes:")
  (let ((x 0))
    (map 'list
         (lambda (m)

             (insert (int-to-string (incf x)))
             (insert ". ")
             (if (monster-dead m)
                 (insertc "**dead**" "dark grey" nil)
                 (progn (insert "(Health=")
                         (insert (int-to-string (monster-health m)))
                         (insert ") ")
                         (monster-show m))))
         orc-battle-monsters))
  (newline))

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