anchor.diff:  		  (second
   		   (get-parsed-url "https://sotamaps.org/")))))))))))))))))))
   
  +(defun get-association-alist ()
  +  "Return all associations as an alist."
  +  (mapcar (lambda (n) (cons (first n) (list (rest n)))) *association-cache*))
  +
  +(defun show-association (a)
  +  "Show the assocation, given the abbreviation."
  +  (join (second (assoc a (get-association-alist) :test 'equal)) " - "))
  +
   (defun get-association-list ()
     "Return a list of all current associations (as specified by the SOTA
   mapping page). Note that this function is extremely brittle, and will
  
positive.code: (defun get-parsed-url (url)
    "Fetch the data at the specified URL and parse it."
    (html-parse:parse-html (get-raw-url url)))
  
  (defun get-spots-from-scrape ()
    "Get the spots page from the SOTA web page, parse the HTML, then
  
negative.code: (defparameter *spot-thread* nil)
  (defparameter *spot-lock* (bt:make-lock))
  (defparameter *sota-rss* t) ; t to use RSS, nil to scrape the sotawatch HTML
  (defparameter *association-cache* nil)
  
  (defun get-raw-url (url)
    "Fetch the data at the specified URL."
  