anchor.diff:                                   (conversation-comments conversation
                                                           comments
                                                           latest-seen)
  +                                 :other-party-name (db other-party :name)
  +                                 :other-party-link (person-link other-party)
                                    :speaking-for speaking-for
                                    :transaction-options transaction-options
                                    :deleted-type deleted-type
  
positive.code:               (transaction-options-for-user id :transaction conversation)
                (setf transaction-options options)
                (setf speaking-for for))
  
              (prog1
                (conversation-html conversation
  
negative.code:                   (htm (:p "with " (str (name-list-all with))))
                    (htm (:p :class "error" "Everybody else has left this conversation."))))
                (:transaction
                    (if (eql (getf data :by) *userid*)
                      (htm
                        (:p
                        "You replied to "
                        (str other-party-link)
                        "'s "
                        (str inventory-url)
                        ":"))
                      (htm
                        (:p
                          "A conversation with "
                          (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)
                          ":")))
  
                    (htm (:blockquote :class "review-text"
                           (awhen (getf on-item :title)
                             (htm
  