anchor.diff:                       (if (string= windchill-c "NA") nil windchill-c)
                        humidity pressure-mb
                        wind-dir wind-kph wind-gust-kph)
  -           (reply-to message "Forecast: ~a, High: ~aC, Low: ~aC" forecast high-c low-c))
  +           (reply-to message "Forecast: ~a, High: ~aC, Low: ~aC" forecast high-c low-c)
  +           (reply-to message "~:{~a starting ~a~%~}" alerts))
  +          
             (t
              (reply-to message "~a, Temp: ~aF, Dewpoint: ~aF, ~
                              ~@[Heat Index: ~aF, ~]~
  
positive.code:                                  pressure-in wind-mph wind-gust-mph
                                   temp-c dewpoint-c heat-index-c windchill-c
                                   pressure-mb wind-kph wind-gust-kph
                                   forecast high-f low-f high-c low-c)
            (retrieve-cached-weather (api-key-of module) location)
          (declare (ignore icon))
          (save-weather-config (data-path "weather-throttle.lisp"))
  
negative.code:               (get-dom-text forecast "high" "fahrenheit")
                (get-dom-text forecast "low" "fahrenheit")
                (get-dom-text forecast "high" "celsius")
                (get-dom-text forecast "low" "celsius"))
               (list
                (mapcan (lambda (node)
                          (when (string= (dom:node-name node) "alert")
                            (list
                             (list
                              (get-dom-text node "description")
                              (get-dom-text node "date")))))
                        (map 'list #'identity (dom:child-nodes alerts))))))))
  
  ;;; End of wunderground interface
  
  