anchor.diff:  
   (defun show-monsters ()
     (fresh-line)
  -  (ansi:princa :red "Your foes:" :reset)
  +  (princa :red "Your foes:" :reset)
     (let ((x 0))
       (map 'list
            (lambda (m)
  -             (fresh-line)
  -             (ansi:princa "    " :bold (incf x) ". " :reset)
  -             (if (monster-dead m)
  -                 (princ "**dead**")
  -                 (progn (princ "(Health=")
  -                         (princ (monster-health m))
  -                         (princ ") ")
  -                         (monster-show m))))
  +           (fresh-line)
  +           (princa "    " :bold (incf x) ". " :reset)
  +           (if (monster-dead m)
  +               (princa :magenta "**dead**" :reset)
  +               (progn (princa "[" (monster-health m) "] ")
  +                      (monster-show m))))
            *monsters*)))
   
   (defun monsters-dead ()
  
positive.code: (defmethod monster-hit (m x)
    (decf (monster-health m) x)
    (if (monster-dead m)
        (progn (princ "You killed the ")
               (princ (type-of m))
               (princ "! "))
        (progn (princ "You hit the ")
               (princ (type-of m))
               (princ ", knocking off ")
               (princ x)
               (princ " health points! "))))
  
  (defgeneric monster-show (m))
  
  (defmethod monster-show (m)
    (princ "A fierce ")
    (princ (type-of m)))
  
  (defgeneric monster-attack (m))
  
  
negative.code: 
  (defun show-player ()
    (fresh-line)
    (princa "You are a valiant knight with a health of "
            *player-health*
            ", an agility of "
            *player-agility*
            ", and a strength of "
            *player-strength*))
  
  ;; monster class
  (defstruct monster (health (randval 10)))
  