anchor.diff:  
   (in-readtable glyphs:syntax)
   
  +;; Pull out the actual numeric for our passed in item
  +;; Expect input like: listing | item
  +(ƒ price-extract ~(format nil "(?i).*(~a.*?)([0-9kp]+?)([^0-9kp]|$).*" αb)~ → |"\\2"|)
  +
  +;; turn 1k into 1000
  +(ƒ expand-ks ~"(?i)k+"~ → |"000"| α → α)
  +
  +(ƒ strip-non-numbers ~"\\D"~ → |""| α → α)
  +
  +;; Pull out a nicely formatted price
  +(ƒ price-parse (price-extract α αb) → (strip-non-numbers (expand-ks (price-extract α αb))))
  +
   (defparameter *pages* '((:title "Nothing...")))
   
   (defun populate-pages ()
  
positive.code:          (ids (mapcar (lambda (match) (getf match :id)) matches)))
      ids))
  
  (defun eq-item-index-exists-p (name)
    "See if we have an index entry for the name or not"
    (with-connection (db)
  
negative.code:        (where (:= :name name))))))
  
  (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 3600)))
      (if (eq-item-index-exists-p item-name)
  