anchor.diff:                      (acond
                         ((stripe:sstruct-get customer :id)
                          (modify-db *userid* :donated t :custid it :plan (donate-info-amount*))
  -                       "yay new monthly!")
  -
  -                      (t "oh no something bad :-("))))))
  +                       (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
  
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:                                       :currency "USD"
                                        :description (donate-info-email*))
                  (modify-db *userid* :donated t)
                  (flash "Thank you so much for your donation! You will receive email from us shortly.")
                  (see-other "/"))
                 
                 ((string= (donate-info-type*) "monthly")
  
  