anchor.diff:                        :password (post-parameter "password")))
   
           (t
  +           (pprint host)(terpri)
              (setf new-id (create-person :name (post-parameter "name")
                                          :host host
                                          :email (post-parameter "email")
  
positive.code:     (let* ((userid (gethash (post-parameter "email") *email-index*))
             (id (parse-integer (post-parameter "invitation-id")))
             (invitation (db id))
             (host (getf (db invitation) :host))
             (host-name (post-parameter "host-name"))
             (new-id nil))
        (when *user* (reset-token-cookie)) 
        (cond
  
          ((post-parameter "decline")
           (decline-invitation :id id
                               :token (post-parameter "token")
  
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"))
  