anchor.diff:  
   ;;; CLiki search
   (defcommand cliki ("(.*)" query)
  +  "Syntax: 'bbs <query>' - Searches CLiki."
     (multiple-value-bind (links numlinks)
         (cliki-urls query)
       (build-string "I found ~D result~:P.~@[ Check out <~A>.~]"
  
positive.code: 
  ;;; Google
  (defcommand google ("(.*)" query)
    (multiple-value-bind (title url)
        (google-search query)
      (build-string "~:[~;~A ~]<~A>" title title url)))
  
negative.code: 
  ;;; BBS 
  (defcommand bbs ("(.*)" query)
    "Syntax: 'bbs <query> - Searches the Arch Linux BBS."
    (multiple-value-bind (title url)
        (bbs-search query)
      (build-string "~:[~;~A ~]<~A>" title title url)))
  