anchor.diff:  
                     ((and (>= i start) items)
                      (str (inventory-activity-item type
  -                                                 (pop items) 
  +                                                 (pop items)
                                                    :show-distance t)))
                     (t
                      (when (< (user-rdist) 100)
  
positive.code:                          nearby
                           (remove-if-not #'top-tag-p nearby :key #'first))
                         #'> :key #'second))
             (top-tags (subseq tags 0 (min count (length tags))))) 
        (cond
          ((and more (> (length tags) (+ count 1)))
           (values
  
negative.code:       (htm
          (:div :class "activity"
            (:div :class "item"
              (unless (or (not *user*)
                          (eq (getf *user* :active) nil)
                          base
                          q)
                (str (simple-inventory-entry-html preposition type)))
  
              (when q
                (htm
                  (:span (:strong :class "small" (str (s+ "showing " type "s matching \"")) (str q) (:strong "\"")))))
  