anchor.diff:             ((string= icon "cloudy")
               '("gloomy" "clouds" "shady" "boring" "weather"))
              ((or (string= icon "fog") (string= icon "hazy"))
  -            '("mist" "vapor" "creepy" "spook" "blind" "low visbility" "darkness" "gloomy" "depress" "weather"))
  +            '("mist" "vapor" "creepy" "spook" "blind" "darkness" "gloomy" "depress" "weather"))
              ((or (string= icon "mostlycloudy") (string= icon "partlysunny"))
               '("cloudy" "scattered" "overcast" "weather"))
              ((or (string= icon "partlycloudy") (string= icon "mostlysunny"))
  
positive.code: (defun query-wunderground (key feature location)
    "Queries wunderground via the API.  May raise a weather-error."
    (throttle-query key (get-universal-time))
    (let ((doc (retrieve-http-document
                :scheme :http
                :host "api.wunderground.com"
  
negative.code:                                  temp-f dewpoint-f heat-index-f windchill-f
                                   pressure-in wind-mph wind-gust-mph
                                   temp-c)
            (retrieve-cached-weather (api-key-of module) location)
          (declare (ignore icon humidity wind-dir
                           dewpoint-f heat-index-f windchill-f
                           pressure-in wind-mph wind-gust-mph))
  