anchor.diff:  		(string-trim
   		 '(#\Space #\Tab #\Newline #\Linefeed) n))
   	      (split-sequence:split-sequence #\- (first n))))
  -	   (get-associations))))
  +	   *association-cache*)))
   
   (defun correct-date-for-day (day)
     "The SOTA spots page returns a day/time in GMT for each spot. This
  
positive.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
  
  (defun get-raw-url (url)
    "Fetch the data at the specified URL."
  
negative.code: 		  (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
  