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:                       :plan (make-donation-plan (* 100 (donate-info-amount*)))
                        :prorate nil
                        :card (donate-info-token*))
                      (when *user*
                        (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
  