anchor.diff:                             message args)
     (alexandria:switch ((first args)
                          :test #'string-equal)
  +    ("join" (ww-join-command module message))
  +    ("leave" (ww-leave-command module message))
       ("start" (ww-start-command module message))
       ("list" (list-werewolf-players module (source message)))
       ("vote" (ww-vote-command module message (second args)))
       (t
  -     (reply-to message "Usage: .ww start|list|vote <nick>"))))
  +     (reply-to message "Usage: .ww join|start|list|vote <nick>"))))
positive.code:                                          (not (werewolf? player))))
                                    (players-of module))))
      (cond
        ((= werewolf-count villager-count)
         (end-werewolf-game module "The werewolves have won!  Nnargh!")
         t)
        ((zerop werewolf-count)
  
negative.code:   ;; Let everyone know their role
    (dolist (player (players-of module))
      (if (werewolf? player)
          (ww-inform module player "You are a werewolf.  You vote at night with other werewolves to murder villagers.   Be sure to /MSG ~a .ww vote <nick> to keep your identity private."
                     (nickname (user (conn-of module))))
          (ww-inform module player "You are a villager."))
      (list-werewolf-players module (nick-of player)))
    (ww-msg-players module "Nighttime has fallen...  The werewolves choose a victim in secret." ))
  
  (defun add-werewolf-player (module nick)
    (assert (eql (state-of module) 'unstarted))
    (push (make-instance 'ww-player
                         :nick nick
                         :werewolf? nil
                         :alive? t)
          (players-of module)))
  
  (defun remove-werewolf-player (module player)
    (setf (players-of module) (delete player (players-of module)))
    (cond
      ((not (eql (state-of module) 'unstarted))
       (ww-msg-players module "~a dies of a freak heart attack." (nick-of player))
       (setf (alive? player) nil))
      ((< (length (players-of module)) (min-players-of module))
       (ww-msg-players module "~a has left the werewolf game. (~a player~:p to go now)"
                       (nick-of player)
                       (- +minimum-werewolf-players+ (length (players-of module)))))
      (t
       (ww-msg-players module "~a has left the werewolf game. Use .ww start to begin playing."
                       (nick-of player)))))
  
  (defun tally-werewolf-vote (module player target)
    (cond
  