anchor.diff:        "Language specifications need to be 2 letters long."))
   
   (defcommand weather ("(.+)" location)
  +  "Syntax: 'weather <location>' - Tells you the current weather in <location>"
     (let* ((location-data
   	  (json:decode-json-from-string 
   	   (map 'string #'code-char 
  
positive.code: (deflistener parrot
    (send-msg *bot* *channel* *message*))
  (defcommand parrot ()
    (if (listener-active-p *bot* *channel* 'parrot)
        (progn
          (listener-off *bot* *channel* 'parrot)
  
negative.code: 
  ;;; AUR 
  (defcommand aursearch ("(.*)" query)
    "Syntax: 'aursearch <query> - Searches the Arch User Repository."
    (multiple-value-bind (title url)
        (aur-search query)
      (build-string "~:[~;~A ~]<~A>" title title url)))
  