anchor.diff:                             1
                              distance)
                          4)))
  -            (* (length (getf data :loved-by)) 50000))))
  +            (* (length (loves (result-id result))) 50000))))
   
   (defun inventory-rank
     (alist)
  
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:         (contact-multiplier 1)
          (distance-multiplier 1)
          (sitewide)
     &aux (age (- (get-universal-time)
                  (or (result-time result) 0)))
          (contacts (getf user :following))
          (lat (or (getf user :lat) *latitude*))
  