anchor.diff:          (htm
             (str (facebook-sign-in-button
                    :redirect-uri "signup"
  +                 :re-request (get-parameter-string "rerequest-email-permission")
                    :button-text "Use Facebook to sign up for Kindista"))
             (str *or-divider*)))
         (:form :method "POST" :action "/signup" :id "signup-form"
  
positive.code:               (unless (getf user :avatar)
                  (asetf new-data
                         (append
                           (list :avatar (save-facebook-profile-picture-to-avatar
                                           (userid)))
                           it)))
                (apply #'modify-db userid new-data)
                (when new-name (reindex-person-names userid))
  
                (register-login userid)))
  
            (t
              (create-new-person-account fb-name
                                         fb-email
  
negative.code:     "Sign up"
      nil
      (html
        (dolist (flash (flashes))
          (str flash))
        (when error (htm (:div :class "signup flash err" (str error))))
        (:div :id "signup" (str body)))
      :hide-menu t))
  
  (defun signup-page (&key error name email email2)
  