anchor.diff:  (deflistener parrot
     (send-msg *bot* *channel* *message*))
   (defcommand parrot ()
  +  "Syntax: 'parrot' - Turns the bot into an auto-echoing douchebag."
     (if (listener-active-p *bot* *channel* 'parrot)
         (progn
           (listener-off *bot* *channel* 'parrot)
  
positive.code:       "Language specifications need to be 2 letters long."))
  
  (defcommand weather ("(.+)" location)
    (let* ((location-data
  	  (json:decode-json-from-string 
  	   (map 'string #'code-char 
  
negative.code:         (listener-on *bot* *channel* 'parrot)
          "TIME TO BE A DOUCHEBAG")))
  (defcommand noparrot ()
    "Syntax: 'noparrot' - stops the madness."
    (listener-off *bot* *channel* 'parrot)
    "NODOUCHE")
  
  