anchor.diff:                                    (zerop (parse-number:parse-number wind-gust-mph)))
                          wind-dir)
                        wind-mph
  -                     (unless (equal wind-mph wind-gust-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))))
  
positive.code:         (values-list (rest cached-weather)))))
  
  (defun parse-weather-args (module message raw-args)
    (let (opts args)
      (dolist (arg raw-args)
        (if (string= "-" arg :end2 1)
            (push arg opts)
            (push arg args)))
      (values
       (find "--metric" opts :test #'string=)
       (find "--set" opts :test #'string=)
       (find "--fucking" opts :test #'string=)
       (find "--doge" opts :test #'string=)
       (cond
         (args
          (join-to-string " " (nreverse args)))
  
negative.code:                           ((> temp-f 10) "icy")
                            ((> temp-f 0) "frigid")
                            (t "arctic"))))
  
            (reply-to message "Current weather for ~a: ~a?!? It's fucking ~a~:[.~;~:*, and there's a fucking ~:{~a~*~:^, and a fucking ~}~]."
                      city
                      (if metricp temp-c temp-f)
  