anchor.diff:       (append (list (get-dom-text current "display_location" "full"))
                (mapcar (lambda (field)
                          (get-dom-text current field))
  -                     '("observation_time" "weather" "icon"
  +                     '("observation_time_rfc822" "weather" "icon"
                          "relative_humidity" "wind_dir"
                          "temp_f" "dewpoint_f" "heat_index_f" "windchill_f"
                          "pressure_in" "wind_mph" "wind_gust_mph"
  
positive.code:                                  pressure-mb wind-kph wind-gust-kph
                                   forecast high-f low-f high-c low-c alerts)
            (retrieve-cached-weather (api-key-of module) location)
          (declare (ignore local-time wind-dir dewpoint-f icon
                           heat-index-f windchill-f pressure-in
                           dewpoint-c heat-index-c
                           windchill-c pressure-mb
                           wind-gust-kph))
  
          (save-weather-config (data-path "weather-throttle.lisp"))
          (let* ((temp-c (read-from-string temp-c)))
            (reply-to message "RITE NAO N ~a ~a. UR TEMP ~a HUMIDNESS ~a ~aWINDINESS ~a HI ~a LO ~a ~a. ~@[~:{~a~}.~] ~a"
                      (string-upcase city) 
                      (alexandria:switch (weather :test 'string=)
                        ("Partly Cloudy" "MOSTLY SKYBLOBLESS")
                        ("Rain" "RAINBLOBS R FALLING")
                        ("Snow" "SNOWBLOBS")
                        ("Clear" "SKYBLOBLESS")
                        (t
  
negative.code:           (retrieve-cached-weather (api-key-of module) location)
          (declare (ignore icon))
          (save-weather-config (data-path "weather-throttle.lisp"))
  
          (reply-to message "Current weather for ~a @ ~a" city local-time)
          (cond
  