anchor.diff:  (define-command (search cliki) (&rest query) (:documentation "Search CLiki.net, a wiki dedicated to open source lisp projects and such..")
     (setf query (format NIL "~{~a~^+~}" query))
     (let ((lquery:*lquery-master-document*))
  -    ($ (initialize (drakma:http-request "http://www.cliki.net/site/search" :parameters `(("query" . ,query)) :external-format-in :utf-8) :type :HTML))
  +    ($ (initialize (drakma-utf8 "http://www.cliki.net/site/search" :parameters `(("query" . ,query))) :type :HTML))
       (let ((results ($ "#content-area li")))
         (if results
             (let ((page (format NIL "http://www.cliki.net~a" ($ results (eq 0) "a" (attr :href) (node)))))
               ($ (initialize (drakma-utf8 page) :type :HTML))
               (cl-ppcre:register-groups-bind (html NIL) ("<div id=\"article\">(.*?)<" ($ "#article" (serialize) (node)))
                 ($ (initialize (format NIL "<html><head></head><body>~a</body></html>" html) :type :HTML))
  -              (respond event "~a : ~a" page ($ "body" (text) (node)))))
  +              (respond event "~a : ~a" page (trunc-text ($ "body" (text) (node))))))
             (respond event "Nothing found for ~a." query)))))
   
   (define-command (search clhs) (&rest query) (:documentation "Search the Common Lisp Hyperspec and return the short explanation.")
  
positive.code: 
  (defun drakma-utf8 (url &rest params)
    (apply #'drakma:http-request url :external-format-in :utf-8 :external-format-out :utf-8 :user-agent :chrome :preserve-uri T params))
  
  (define-module search () ()
    (:documentation "Perform searches on various sites."))
  
negative.code:     (if short
          (respond event short)
          (respond event "Url-shortening failed!"))))
  
  (define-command (search steam) (&rest query) (:documentation "Search the steam store for games.")
    (setf query (format NIL "~{~a~^ ~}" query))
    (let ((lquery:*lquery-master-document*))
      ($ (initialize (drakma-utf8 "http://store.steampowered.com/search/" :parameters `(("term" . ,query))) :type :HTML))
      (let ((results ($ ".search_result_row")))
        (if results
            (let ((page ($ (first results) (attr :href) (node))))
              ($ (initialize (drakma-utf8 page) :type :HTML))
              (respond event "~a : ~a ~a"
                       ($ ".apphub_AppName" (text) (node))
                       (trunc-text ($ ".game_description_snippet" (text) (node)))
                       page))
            (respond event "Nothing found for ~a." query)))))
  
  (defun google-term (term)
    (let ((lquery:*lquery-master-document*))
  