anchor.diff:  (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."
  
positive.code: 
  (defun start-spotter ()
    "Start the spotter thread."
    (setf *spot-thread* (bt:make-thread
  		       (lambda () (spot-fetcher-thread))
  		       :name "sota-spots")))
  
negative.code: 		(string-trim
  		 '(#\Space #\Tab #\Newline #\Linefeed) n))
  	      (split-sequence:split-sequence #\- (first n))))
  	   *association-cache*)))
  
  (defun correct-date-for-day (day)
    "The SOTA spots page returns a day/time in GMT for each spot. This
  