anchor.diff:  
     (flet ((inventory-item-rank (item)
              (let* ((result (car item))
  -                  (data (db (result-id result)))
                     (age (- (get-universal-time) (or (result-time result) 0)))
                     (loves (max 1 (length (loves (result-id result))))))
                (+ (* (/ 50 (log (+ (/ age 86400) 6)))
  
positive.code:                            1
                             distance)
                         4)))
              (* (length (loves (result-id result))) 50000))))
  
  (defun inventory-rank
    (alist)
  
negative.code:         (contact-component (if contact-p
                               (* 100000 contact-multiplier)
                               0))
          (love-component (* (length (loves (result-id result))) 80000)))
    "Lower scores rank higher."
    (declare (optimize (speed 3) (safety 0) (debug 0)))
  
  