anchor.diff:            (acond
               ((stripe:sstruct-get result :id)
                (setf (gethash amount *donation-plans*) it))
  -            
               (t nil)))
           (stripe::stripe-error (err)
                                 (cond
  
positive.code:                                       :amount (* 100 (donate-info-amount*))
                                        :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")
  
                  (aif (getf *user* :custid)
                    (progn
                      (stripe:update-subscription it
  
negative.code:               (:option :value "2020" "2020")
                (:option :value "2021" "2021")
                (:option :value "2022" "2022")
                (:option :value "2023" "2023"))))
  
          (:button :id "ccnext" :class "nav" :type "submit" "Next >")
  
  