anchor.diff:                       (unless (and (zerop (parse-number:parse-number wind-kph))
                                     (zerop (parse-number:parse-number wind-gust-kph)))
                          wind-dir)
  -                     wind-kph wind-gust-kph)
  +                     wind-kph
  +                     (unless (equal wind-kph wind-gust-kph) 
  +                       wind-gust-kph))
              (reply-to message "Forecast: ~a, High: ~aC, Low: ~aC" forecast high-c low-c)
              (reply-to message "~:{~a starting ~a~%~}" alerts))
             
  
positive.code:                            ~@[Heat Index: ~aF, ~]~
                             ~@[Wind Chill: ~aF, ~]~
                             Humidity: ~a, Pressure: ~ain, ~
                             Wind: ~@[~a ~]~a/~a mph"
                       weather temp-f dewpoint-f
                       (if (string= heat-index-f "NA") nil heat-index-f)
                       (if (string= windchill-f "NA") nil windchill-f)
  
negative.code:                      (unless (and (zerop (parse-number:parse-number wind-mph))
                                    (zerop (parse-number:parse-number wind-gust-mph)))
                         wind-dir)
                       wind-mph
                       (unless (equal wind-mph wind-gust-mph) 
                         wind-gust-mph))
             (reply-to message "Forecast: ~a, High: ~aF, Low: ~aF" forecast high-f low-f)
             (reply-to message "~:{~a starting ~a~%~}" alerts))))
      (weather-error (err)
  