anchor.diff:          (contact-multiplier 1)
           (distance-multiplier 1)
           (sitewide)
  -   &aux (data (db (result-id result)))
  -        (age (- (get-universal-time)
  +   &aux (age (- (get-universal-time)
                   (or (result-time result) 0)))
           (contacts (getf user :following))
           (lat (or (getf user :lat) *latitude*))
  
positive.code: 
  (defun event-rank
    (result
     &aux (data (db (result-id result)))
          (contacts (getf *user* :following))
          (currentness (abs (- (or (result-time result) 0)
                               (get-universal-time))))
          (distance (air-distance *latitude*
  
negative.code:                            1
                             distance)
                         4)))
              (* (length (loves (result-id result))) 50000))))
  
  (defun inventory-rank
    (alist)
  