anchor.diff:  (push #'make-slime-mold *monster-builders*)
   
   (defmethod monster-show ((m slime-mold))
  -  (princ "A slime mold with a sliminess of ")
  -  (princ (slime-mold-sliminess m)))
  +  (princa "A slime mold with a sliminess of ")
  +  (princa (slime-mold-sliminess m)))
   
   (defmethod monster-attack ((m slime-mold))
     (let ((x (randval (slime-mold-sliminess m))))
  -    (princ "A slime mold wraps around your legs and decreases your agility by ")
  -    (princ x)
  -    (princ "! ")
  +    (princa "A slime mold wraps around your legs and decreases your agility by ")
  +    (princa x)
  +    (princa "! ")
       (fresh-line)
       (decf *player-agility* x)
       (when (zerop (random 2))
  -      (princ "It also squirts in your face, taking away a health point! ")
  +      (princa "It also squirts in your face, taking away a health point! ")
         (fresh-line)
         (decf *player-health*))))
   
  
positive.code: (push #'make-orc *monster-builders*)
  
  (defmethod monster-show ((m orc))
    (princ "A wicked orc with a level ")
    (princ (orc-club-level m))
    (princ " club"))
  
  (defmethod monster-attack ((m orc))
    (let ((x (randval (orc-club-level m))))
  
negative.code: (defmethod monster-attack ((m brigand))
    (let ((x (max *player-health* *player-agility* *player-strength*)))
      (cond ((= x *player-health*)
             (princa "A brigand hits you with his slingshot, taking off 2 health points! ")
             (fresh-line)
             (decf *player-health* 2))
            ((= x *player-agility*)
             (princa "A brigand catches your leg with his whip, taking off 2 agility points! ")
             (fresh-line)
             (decf *player-agility* 2))
            ((= x *player-strength*)
             (princa "A brigand cuts your arm with his whip, taking off 2 strength points!")
             (fresh-line)
             (decf *player-strength* 2)))))
  
  