anchor.diff:            (retrieve-cached-weather (api-key-of module) location)
           (declare (ignore icon))
           (save-weather-config (data-path "weather-throttle.lisp"))
  -        (setf local-time (ppcre:regex-replace "^Last Updated on " local-time ""))
   
           (reply-to message "Current weather for ~a @ ~a" city local-time)
           (cond
  
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:      (append (list (get-dom-text current "display_location" "full"))
               (mapcar (lambda (field)
                         (get-dom-text current field))
                       '("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"
  