anchor.diff:                                    (zerop (parse-number:parse-number wind-gust-kph)))
                          wind-dir)
                        wind-kph
  -                     (unless (equal wind-kph wind-gust-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))
  -          
  +
             (t
              (reply-to message "~a, Temp: ~aF, Dewpoint: ~aF, ~
                              ~@[Heat Index: ~aF, ~]~
  
positive.code:                                   (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))))
  
negative.code:         (values-list (rest cached-weather)))))
  
  (defun parse-weather-args (module message raw-args)
    (multiple-value-bind (opts args)
        (parse-args '((:metric . boolean)
                      (:set . boolean)
                      (:fucking . boolean)
                      (:doge . boolean))
                    raw-args)
      (values
       (getf opts :metric)
       (getf opts :set)
       (getf opts :fucking)
       (getf opts :doge)
       (cond
         (args
          (join-to-string " " (nreverse args)))
  