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