anchor.diff:  
   ;;; ArchWiki 
   (defcommand wiki ("(.*)" query)
  +  "Syntax: 'wiki <query> - Searches the Arch Linux wiki."
     (multiple-value-bind (title url)
         (wiki-search query)
       (build-string "~:[~;~A ~]<~A>" title title url)))
  
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: ;;   (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 "*")))
  