anchor.diff:                (transaction-options-for-user id :transaction conversation)
                 (setf transaction-options options)
                 (setf speaking-for for))
  +
  +            (when (eq type :transaction)
  +              (setf other-party (car (remove speaking-for with))))
   
               (prog1
                 (conversation-html conversation
  
positive.code:                                  (conversation-comments conversation
                                                          comments
                                                          latest-seen)
                                   :speaking-for speaking-for
                                   :transaction-options transaction-options
                                   :deleted-type deleted-type
  
negative.code: 
        (:div :class "item" :id "reply"
          (:h4 "post a reply")
          (flet ((radio-selector (status request-text offer-text)
                   (when (find status transaction-options :test #'string=)
                     (html
                       (:div ;:class "inline-block"
                         (:input :type "radio"
                                 :name "action-type"
                                 :value status)
                                 (str (if (eq on-type :request)
                                        request-text offer-text)))))))
  
            (htm
              (:form :method "post" :action (script-name*)
                (:textarea :cols "150" :rows "4" :name "text")
  
                (:div :class (when (eq error :no-reply-type)
                               "error-border")
  
                 (str (radio-selector
                        "will-give"
                        (s+ "I am offering to fulfill " other-party-name "'s " inventory-url ".")
                        (s+ "I am offering to share this " inventory-url " with " other-party-name ".")))
  
                 (str (radio-selector
                        "might-give"
                        (s+ "I might offer to fulfill " other-party-name "'s " inventory-url ", but I need more information first.")
                        (s+ "I might offer to share this " inventory-url " with " other-party-name ", but I need more information first.")))
  
                 (str (radio-selector
                        "will-not-give"
                        (s+ "I have a comment or suggestion, but I am "
                            "<strong> NOT </strong>"
                            " offering to fulfill "
                            other-party-name
                            "'s "
                            inventory-url ".")
                        (s+ "I have a comment or suggestion, but I am "
                            "<strong> NOT </strong>"
                            " offering to share this " inventory-url " with " other-party-name ".")))
  
                 (:div ;:class "inline-block"
                   (:input :type "radio"
                    :name "action-type"
                    :value "suggestion")
                   "I have a comment or suggestion about this "
                   (str on-type-string)
                   " , but I am "
                   (:strong "NOT ")
                   (str (if (eq on-type :request)
                          "offering to fulfill it."
                          "requesting to receive it.")))
  
                 (:div ;:class "inline-block"
                   (:input :type "radio"
                    :name "action-type"
                    :value "inquiry")
                   "I have a question about this "
                   (str on-type-string)
                   " and I might "
                   (str (if (eq on-type :request)
                          "offer to fulfill it."
                          "request to receive it.")))
  
                 (if (eq on-type :request)
                   (htm
                     (:div ;:class "inline-block"
                       (:input :type "radio"
                        :name "action-type"
                        :value "offer")
                       "I am offering to fulfill this request."))
  
                   (htm
                     (:div ;:class "inline-block"
                       (:input :type "radio"
                        :name "action-type"
                        :value "request")
                       "I am requesting to recieve this offer."))))
  
            (:button :class "yes" :type "submit" :class "submit" "Send"))))))
      :selected "messages"))
  
  (defun transaction-options-for-user
  