anchor.diff:        (parse-args '((:metric . boolean)
                       (:set . boolean)
                       (:fucking . boolean)
  -                    (:doge . boolean))
  +                    (:doge . boolean)
  +                    (:ishappening . boolean))
                     raw-args)
       (values
        (getf opts :metric)
        (getf opts :set)
        (getf opts :fucking)
        (getf opts :doge)
  +     (getf opts :ishappening)
        (cond
          (args
           (join-to-string " " args))
  
positive.code:       (save-weather-config (data-path "weather-throttle.lisp"))
        (reply-to message "~a: ~a" (source message) (message-of err)))))
  
  
  (defmethod handle-command ((module weather-module) (cmd (eql 'weather))
                             message args)
    "weather [--metric] <location> - show current conditions and the day's forecast
  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 ()
  
negative.code:                                    (:n "much" "so" "such" "very")
                                     (:m "many" "so" "such" "very"))
                                   #("wow" "amaze" "excite")))
            (ishappeningp
             (display-weather-is-happening module message metricp location))
            (t
             (display-weather module message metricp location))))))
  