anchor.diff:                                   temp-f dewpoint-f heat-index-f windchill-f
                                    pressure-in wind-mph wind-gust-mph
                                    temp-c)
  -          (retrieve-current-weather (api-key-of module) location)
  +          (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))
  
positive.code: (defmethod about-module ((module weather-module) stream)
    (format stream "- Weather information provided by wunderground.com~%"))
  
  (defun parse-weather-args (module message raw-args)
    (let (opts args)
      (dolist (arg raw-args)
  
negative.code: (defun query-wunderground (key feature location)
    "Queries wunderground via the API.  May raise a weather-error."
    (throttle-query key (get-universal-time))
    (log:log-message :info "querying wunderground feature: ~a, location: ~a" feature location)
    (let ((doc (retrieve-http-document
                :scheme :http
                :host "api.wunderground.com"
  