anchor.diff:  
   
   (defun get-donate ()
  -  (base-page
  -    "Donate"
  -    (donate-page (donate-monthly-1))))
  +  (if *user*
  +    (base-page
  +      "Donate"
  +      (donate-page (donate-monthly-1)))
  +    (see-other "/donate/once")))
   
   
   (defun post-donate ()
  
positive.code: 
                      (acond
                        ((stripe:sstruct-get customer :id)
                         (modify-db *userid* :donated t :custid it :plan (donate-info-amount*))
                         (flash "Thank you so much for your donation! You will receive email from us shortly.")
                         (see-other "/"))
  
  
negative.code:       (:button :type "submit" :name "amount" :value "250" "$250")
        (:button :type "submit" :name "amount" :value "other" "Other")
  
        (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") ".")
  