anchor.diff:  
   (defun event-rank
     (result
  -   &aux (data (db (result-id result)))
  -        (contacts (getf *user* :following))
  +   &aux (contacts (getf *user* :following))
           (currentness (abs (- (or (result-time result) 0)
                                (get-universal-time))))
           (distance (air-distance *latitude*
  
positive.code:         (contact-component (if contact-p
                               (* 100000 contact-multiplier)
                               0))
          (love-component (* (length (getf data :loved-by)) 100000)))
    "Lower scores rank higher."
    (declare (optimize (speed 3) (safety 0) (debug 0)))
  
  
negative.code:                            1
                             distance)
                         4)))
              (* (length (loves (result-id result))) 50000))))
  
  (defun inventory-rank
    (alist)
  