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:       (save-weather-config (data-path "weather-throttle.lisp"))
        (reply-to message "~a: ~a" (source message) (message-of err)))))
  
  (defun display-weather-is-happening (module message metricp location)
    (handler-case
        (multiple-value-bind (city local-time weather icon humidity wind-dir
  
negative.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 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* ((obs-time (decode-rfc822-timestamp local-time))
                 (hour (parse-integer (elt obs-time 4)))
                 (wih-time (concatenate
                            'string
                            (string-upcase (elt obs-time 0))
                            (cond
                              ((<= hour 6) "NITE")
                              ((<= hour 10) "MORN")
                              ((<= hour 12) "MIDMORN")
                              ((<= hour 18) "AFT")
                              (t "NITE"))))
                 (temp-c (read-from-string temp-c)))
            (reply-to message "UR ~a N ~a ~a. UR TEMP ~a HUMIDNESS ~a ~aWINDINESS ~a HI ~a LO ~a ~a. ~@[~:{~a~}.~] ~a"
                      wih-time
                      (string-upcase city) 
                      (alexandria:switch (weather :test 'string=)
                        ("Partly Cloudy" "MOSTLY SKYBLOBLESS")
                        ("Overcast" "BLOBULAR")
                        ("Rain" "RAINBLOBS")
                        ("Snow" "SNOWBLOBS")
                        ("Clear" "SKYBLOBLESS")
                        (t
  