anchor.diff:      (let* ((userid (gethash (post-parameter "email") *email-index*))
              (id (parse-integer (post-parameter "invitation-id")))
              (invitation (db id))
  -           (host (getf (db invitation) :host))
  +           (host (getf invitation :host))
              (host-name (post-parameter "host-name"))
              (new-id nil))
  -      (when *user* (reset-token-cookie)) 
  +      (when *user* (reset-token-cookie))
         (cond
  -
           ((post-parameter "decline")
            (decline-invitation :id id
                                :token (post-parameter "token")
  
positive.code:                       :password (post-parameter "password")))
  
          (t
             (setf new-id (create-person :name (post-parameter "name")
                                         :host host
                                         :email (post-parameter "email")
  
negative.code:                              :email (post-parameter "invitation-email")))
  
          ((post-parameter "really-decline")
           (modify-db id
                      :valid-until (get-universal-time))
           (flash (s+ "You have declined your invitation from " host-name "."))
           (see-other "/home"))
  