anchor.diff:                            ((> 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)
  
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: weather [--set] <location> - set the channel default location
  "
    (multiple-value-bind (metricp setp fuckingp dogep location)
        (handler-case
            (parse-weather-args module message args)
          (unexpected-argument-end ()
            (reply-to message "You seem to be missing an argument there.")
            (return-from handle-command))
          (unknown-option (err)
            (reply-to message "Unknown option ~a" (slot-value err 'option))
            (return-from handle-command)))
      (if setp
          (cond
            ((null location)
  