anchor.diff:        (:button :type "submit" :name "amount" :value "250" "$250")
         (:button :type "submit" :name "amount" :value "other" "Other")
   
  -      (:h3 (:a :href "/donate" "Or, make a monthly donation"))
  +      (when *user* (htm (:h3 (:a :href "/donate" "Or, make a monthly donation"))))
   
         (:p "We do not store your credit card information, and we have a really good " (:a :href "/privacy" "privacy policy") ".")
        ; (:p "For information on other ways to donate, " (:a :href "/donate/more" "click here") ".")
  
positive.code:                       :plan (make-donation-plan (* 100 (donate-info-amount*)))
                        :prorate nil
                        :card (donate-info-token*))
                      (modify-db *userid* :plan (donate-info-amount*))
                      (flash "Thank you so much for your donation! You will receive email from us shortly.")
                      (see-other "/"))
                    (let ((customer (stripe:create-customer
  
negative.code: 
  
  (defun get-donate ()
    (if *user*
      (base-page
        "Donate"
        (donate-page (donate-monthly-1)))
      (see-other "/donate/once")))
  
  
  (defun post-donate ()
  