anchor.diff:              (:closed    (format-ballot-tally ballot))
               (:cancelled ""))))
   
  -;; | list [ballot[s]]                                 | list of ballots        | Lists all known ballots with their state and deadline or results.                        |
  +;; | list [ballot[s]]                                 | list of ballots        | Lists all known ballots with their state and deadline or results.
   (defun list-ballots ()
     (if *ballots*
      (dolist (ballot *ballots*)
        (list-ballot ballot))
      (format t "No ballots yet.  Use the new ballot command.~%")))
   
  -;; | show [ballot] $ballot-id                         | display info of ballot | Displays all the public information about the ballot.                                     |
  +;; | show [ballot] $ballot-id                         | display info of ballot | Displays all the public information about the ballot.
   (defun show-ballot (ballot-id)
     (let ((ballot (find-ballot-id ballot-id)))
       (list-ballot ballot)))
   
   
  -;; | add choice $ballot-id $choice-id $choice-title   |                        | Adds a new choice to the ballot.  Only in :editing state.                                 |
  +;; | add choice $ballot-id $choice-id $choice-title   |                        | Adds a new choice to the ballot.  Only in :editing state.
   (defun add-choice (user-id ballot-id choice-id choice-title)
     (let ((ballot (find-ballot-id ballot-id)))
       (check-ballot-owner ballot user-id)
  
positive.code:            :expected-state state
             :operation operation)))
  
      
  (defun find-ballot-id (ballot-id)
    (let ((ballot (find ballot-id *ballots*
                        :key (function ballot-id)
  
negative.code:           (privmsg *connection* channel message))))))
  
  
  ;; | open ballot $ballot-id $password                 |                        | Opens the ballot. From the :editing state.
  (defun open-ballot (user-id password ballot-id)
    (let ((ballot (find-ballot-id ballot-id)))
      (check-ballot-owner ballot user-id)
  