anchor.diff:  (defparameter *uptodate-thread* nil)
   (defconstant point-spot 3)
   
  +(defmacro cdr-assoc (name alist)
  +  "Replaces '(cdr (assoc name alist))' because it's used a bajillion
  +times when doing API stuff."
  +  `(cdr (assoc ,name ,alist :test #'equal)))
  +
   ;;  Descendant of aviation-formlary's 2d-point.  Adds fields for SPOT
   ;;  service.
   (defclass spot-point (af:2d-point)
     ((id :accessor point-id
  -         :initarg :id
  -         :initform nil)
  +       :initarg :id
  +       :initform nil)
      (messenger-id :accessor point-messenger-id
                    :initarg :messenger-id
                    :initform nil)
      (unix-time :accessor point-unix-time
  -        :initarg :unix-time
  -        :initform nil)
  +              :initarg :unix-time
  +              :initform nil)
      (message-type :accessor point-message-type
  -        :initarg :message-type
  -        :initform nil)
  +		 :initarg :message-type
  +		 :initform nil)
      (model-id :accessor point-model-id
  -        :initarg :model-id
  -        :initform nil)
  +             :initarg :model-id
  +             :initform nil)
      (show-custom-msg :accessor point-show-custom-msg
  -        :initarg :show-custom-msg
  -        :initform nil)
  +		    :initarg :show-custom-msg
  +		    :initform nil)
      (date-time :accessor point-date-time
  -        :initarg :date-time
  -        :initform nil)
  +              :initarg :date-time
  +              :initform nil)
      (battery-state :accessor point-battery-state
  -        :initarg :battery-state
  -        :initform nil)
  +		  :initarg :battery-state
  +		  :initform nil)
      (hidden :accessor point-hidden
  -        :initarg :hidden
  -        :initform nil)
  +           :initarg :hidden
  +           :initform nil)
      ))
   
   (defmethod point-serialize ((p spot-point))
  
positive.code: (defun start-spot (feed-glld feed-passwd)
    "Start the thread that reads the latest API data from spot.com every
  2.5 minutes. This keeps the *spots* list up-to-date."
    (setf *uptodate-thread* (bt:make-thread (lambda () (up-to-dater feed-glld feed-passwd)) :name "up-to-dater"))
    (format t "spot update thread is running...~%"))
  
  (defun get-all-spots-local ()
  
negative.code: 
  (defun spot-street-address (spot google-api-key)
    "Convert a spot location into a street address."
    (geocode:extract-street-address-from-json
     (lookup-location spot google-api-key)))
  
  (defun create-location-objects-from-list (location-list)
    "Takes a list of JSON locations (usually
  