anchor.diff:                               "error")
                       :id "lcvc"
                       "*CVC " (:a :href "http://en.wikipedia.org/wiki/Card_security_code" :target "_blank" "(?)"))
  -            (:input :id "cvc" :type "text")
  -           
  -           )
  +            (:input :id "cvc" :type "text"))
             (:li :class "half"
               (:label :class (when (and show-error
                                         (empty-string-p (donate-info-token*)))
  
positive.code:       (: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") ".")
        )))
      
  (defun donate-page (dialog)
    (base-page
      "Donate"
      (html
        (str dialog)
        )
      :class "donate"))
  
  
  
negative.code:                                       :amount (* 100 (donate-info-amount*))
                                        :currency "USD"
                                        :description (donate-info-email*))
                  (when *user* (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
  