anchor.diff:                         :command command
                          :token (coerce (nreverse word) 'string))))))
   
  -
   (defun call-command (command call bindings)
     (let ((fun  (first call))
           (args (mapcar (lambda (arg)
  
positive.code: ;;; Commands
  ;;;
  
  ;; | new ballot $title $password                      | $ballot-id             | Creates a new ballot and issues a ballot ID for reference.                                |
  (defun new-ballot (owner password title &key
                                            (deadline '(:relative #.(days 1)))
                                            (remind-period #.(hours 1)))
  
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)
  