anchor.diff:                     (:like :name "Spell:%")))
          (order-by :name)))))
   
  -(defun get-auction-listing-ids (name)
  +(defun get-auction-listing-ids (name &key (max-days 7))
     "For a given item name, pull out the auction listing ids"
  -  (let* ((matches (query-auctions :regex name))
  +  (let* ((matches (query-auctions :regex name :max-days max-days))
            (ids (mapcar (lambda (match) (getf match :id)) matches)))
       ids))
   
  
positive.code:                      (where (:in :id (split-sequence #\, (getf ids :ids))))
                       (order-by (:desc :date)))))))))
  
  (defparameter *max-days-old* 7)
  
  (defun yyyy-mm-dd (ut)
    "Change a universal-time into the mysql format"
    (with-decoded-timestamp (:year y :month m :day d)
        (universal-to-timestamp ut)
      (format nil "~a-~2,'0d-~2,'0d" y m d)))
  
  (defun query-auctions (&key (limit 100) (type nil) (regex nil))
    "Pull out the listings, limit is the total to show"
    (with-connection (db)
      (let ((clause (build-like-clause type regex)))
  
negative.code: (defun populate-eq-item-index (name)
    "In our database, populate item names/indexes for all available p99 items"
    (let* ((item-name name)
           (item-ids (get-auction-listing-ids item-name :max-days 9000)))
      (if (eq-item-index-exists-p item-name)
          (with-connection (db)
            (execute
  