anchor.diff:                                                 *userid*)))
                (create-transaction :on id
                                    :text reply-text
  +                                 :groupid groupid
                                    :action (cond
                                              ((string= action-type "offer")
                                               :offered)
  
positive.code:                   :text reply-text
                    :action-type action-type
                    :next next
                    :identity-selection (post-parameter-integer
                                          "identity-selection")
                    :match (post-parameter-integer "match")
                    :error (when (and (not (post-parameter "reply"))
                                      (not reply-text)
  
negative.code:         reply
     &aux (type (getf item :type))
          (by (getf item :by))
          (groupid (awhen (post-parameter-integer "identity-selection")
                                (unless (= it *userid*) it)))
          (adminp (group-admin-p by)))
  
    (require-user (:require-email t)
  