     (cond ((= x orc-battle-player-health)
            (insert "A brigand hits you with his slingshot, taking off 2 health
 points! ")
+           (newline)
            (decf orc-battle-player-health 2))
           ((= x orc-battle-player-agility)
            (insert "A brigand catches your leg with his whip, taking off 2
 agility points! ")
+           (newline)
            (decf orc-battle-player-agility 2))
           ((= x orc-battle-player-strength)
            (insert "A brigand cuts your arm with his whip, taking off 2
 strength points! ")
+           (newline)
            (decf orc-battle-player-strength 2)))))
 

       (insert "An orc swings his club at you and knocks off ")
       (insert (int-to-string x))
       (insert " of your health points. ")
       (decf orc-battle-player-health x)))

(defclass hydra (monster) nil

  (if (monster-dead m)
      (progn (insert "You killed the ")
             (insert (symbol-name (object-class m)))
             (insert "! ")
             (newline))
      (progn (insert "You hit the ")
             (insert (symbol-name (object-class m)))
             (insert ", knocking off ")
             (insert (int-to-string x))
             (insert " health points! ")
             (newline))))

(defmethod monster-show (m)
  (insert "A fierce ")
