anchor.diff:  ;;   (cmd-msg (string-upcase input)))
   
   (defcommand singa ()
  +  "I love to singa
  +about the moon-a and a june-a and a spring-a
  +I love to singa"
     (build-string
      "I love to singa~@
       about the moon-a and a june-a and a spring-a~@
       I love to singa"))
   
   (defcommand error ()
  +  "This accepts no arguments. It makes lisp signal an error, to make sure they're handled properly."
     (error "OH SHIT ERRORED! D:")
     "Uh oh")
   
   (defcommand translate ("(\\S+) (\\S+) (.*)" input-lang output-lang text)
  +  "Syntax: 'translate <input-lang> <output-lang> <text>' - translates TEXT from input-lang into~
  + output-lang. Providing '*' as the input-lang will make it auto-detect the from-language."
     (if (and (= (length output-lang) 2)
              (or (= (length input-lang) 2)
                  (string= input-lang "*")))
  
positive.code: 
  ;;; base commands
  (defcommand echo ("(.*)" string)
    string)
  (defcommand documentation ("(\\S+)" cmd-name)
    (let ((cmd (find-command *active-bot* cmd-name)))
      (if cmd 
  	(dox cmd)
  	(build-string "I don't know any command called ~A" cmd-name))))
  (defcommand source ()
    "I'm licensed under the AGPL, you can find my source code at: http://github.com/zkat/sykobot")
  (defcommand version ()
    "Pfft. I have no versions. I'm 100% git")
  (defcommand help ()
    "No.")
  (defcommand commands ()
    (build-string "Available commands are ~{~A~^ ~}"
                  (list-all-commands *bot*)))
  (defcommand topic ("(.*)" new-topic)
    (if (< 0 (length new-topic))
        (topic *bot* *channel* new-topic) ; Slightly broken
        (topic *bot* *channel*)))
  (defcommand ping () "pong")
  (defcommand hi () "Go away.")
  (defcommand language () "I'm \"Lost In Stupid Parentheses\"")
  
  ;;; Give is currently broken
  #+nil (defcommand give ("(\\S+) (\\S+) (.*)$" new-target new-command new-args)
  
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)))
  