anchor.diff:          :key 'nick-of))
   
   (defun ww-inform (module player fmt &rest args)
  -  (declare (ignore module))
  -  (format t "~a: ~?~%" player fmt args)
  -  #+nil
     (cl-irc:privmsg (conn-of module) (nick-of player) (format nil "~?~%" fmt args)))
   
  -
   (defun ww-msg-players (module fmt &rest args)
  -    (format t "~a: ~?~%" (channel-of module) fmt args) #+nil
     (cl-irc:privmsg (conn-of module) (channel-of module) (format nil "~?~%" fmt args)))
   
   (defun ww-msg-wolves (module fmt &rest args)
     (dolist (player (players-of module))
  -    (when (werewolf? player)
  +    (when (and (alive? player)
  +               (werewolf? player))
         (apply 'ww-inform module player fmt args))))
   
  -(defun select-victim (module)
  -  (let* ((votes (mapcar 'vote-of (players-of module)))
  +(defun select-victim (voters)
  +  (let* ((votes (mapcar 'vote-of voters))
            (counts (mapcar (lambda (vote)
                              (cons vote (count vote votes)))
                            (remove-duplicates votes))))
  
positive.code:     ((not (alive? player))
       (ww-inform module player "You are dead and don't get a vote."))
      ((and (not (werewolf? player))
            (eql (state-of module) 'day))
       (ww-inform module player "Only the werewolves get to kill at night."))
      ((not (alive? target))
       (if (eql (state-of module) 'day)
           (ww-inform module player "You can't lynch the dead.")
           (ww-inform module player "Eat dead meat?  How disgusting!")))
      ((eql (state-of module) 'day)
       (setf (vote-of player) (nick-of target))
       (ww-msg-players module "~a votes for lynching ~a." (nick-of player) (nick-of target))
       (when (every 'vote-of (players-of module))
         (start-werewolf-nighttime module)))
      (t
       (setf (vote-of player) (nick-of target))
       (ww-msg-wolves module "~a votes for eating ~a." (nick-of player) (nick-of target))
       (when (every 'vote-of (remove-if-not 'werewolf? (players-of module)))
         (start-werewolf-daytime module)))))
  
negative.code:   (assert (eql (state-of module) 'unstarted))
    (setf (state-of module) 'starting)
    (setf (channel-of module) channel)
    (setf (timer-of module)
          (iolib:add-timer *event-base*
                           (lambda ()
  