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

  (newline)
  (map 'list
       (lambda(m)
         (or (monster-dead m) (monster-attack m)))
       orc-battle-monsters)
  (orc-battle-cycle))

(defun game-loop ()
  (unless (or (player-dead) (monsters-dead))
    (show-player)
    (dotimes (k (1+ (truncate (/ (max 0 orc-battle-player-agility) 15))))
      (unless (monsters-dead)
        (show-monsters)
        (player-attack)))
    (newline)
    (map 'list
         (lambda(m)
           (or (monster-dead m) (monster-attack m)))
         orc-battle-monsters)
    (game-loop)))


             (insert "    ")
             (insert (int-to-string (incf x)))
             (insert ". ")
             (if (monster-dead-p m)
                 (insertc "**dead**" "purple" nil)
                 (progn (insert "(Health=")
                         (insert (int-to-string (monster-health m)))
