anchor.diff:                                        :currency "USD"
                                         :description (donate-info-email*))
                   (modify-db *userid* :donated t)
  -
  -                "yay!")
  +                (flash "Thank you so much for your donation! You will receive email from us shortly.")
  +                (see-other "/"))
                  
                  ((string= (donate-info-type*) "monthly")
   
  
positive.code:                       :prorate nil
                        :card (donate-info-token*))
                      (modify-db *userid* :plan (donate-info-amount*))
                      "yay updated!")
                    (let ((customer (stripe:create-customer
                                      :card (donate-info-token*)
                                      :email (donate-info-email*)
  
negative.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 "/"))
  
                        (t (flash "An error occurred while processing your payment. Humans have been notified, and we'll be in touch shortly." :error t)))))))
               (stripe::stripe-error (err)
                 (let ((code (stripe:sstruct-get (stripe::stripe-error-reply err) :error :code)))
                   (cond
  