anchor.diff:                    (htm (:p "with " (str (name-list-all with))))
                     (htm (:p :class "error" "Everybody else has left this conversation."))))
                 (:transaction
  -                (flet ((inventory-url ()
  -                        (html
  -                          (case on-type
  -                            (:offer
  -                             (htm (:a :href (strcat "/offers/" (getf data :on))
  -                                   "offer")))
  -                            (:request
  -                             (htm (:a :href (strcat "/requests/" (getf data :on))
  -                                   "request")))
  -                            (t (case deleted-type
  -                                 (:offer (htm "offer"))
  -                                 (:request (htm "request"))
  -                                 (t (htm (:span :class "none" "deleted offer or request")))))))))
  -
                     (if (eql (getf data :by) *userid*)
                       (htm
                         (:p
                         "You replied to "
  -                      (str (person-link (or (getf on-item :by)
  -                                            (first with))))
  +                      (str other-party-link)
                         "'s "
  -                      (str (inventory-url))
  +                      (str inventory-url)
                         ":"))
                       (htm
                         (:p
                           "A conversation with "
  -                        (str (person-link (getf data :by)))
  +                        (str other-party-link)
                           " about "
                           (if (eq (getf on-item :by) *userid*)
                             (str "your ")
                             (str (s+ (db (getf on-item :by) :name)
                                      "'s ")))
  -                        (str (inventory-url))
  -                        ":"))))
  +                        (str inventory-url)
  +                        ":")))
  +
                     (htm (:blockquote :class "review-text"
                            (awhen (getf on-item :title)
                              (htm
  
positive.code:                                  (conversation-comments conversation
                                                          comments
                                                          latest-seen)
                                   :speaking-for speaking-for
                                   :transaction-options transaction-options
                                   :deleted-type deleted-type
  
negative.code:               (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
  