anchor.diff:  
   (defun google-term (term)
     (let ((lquery:*lquery-master-document*))
  -    ($ (initialize (drakma:http-request "http://www.google.com/search" 
  -                                        :parameters `(("q" . ,term))
  -                                        :external-format-out :utf-8
  -                                        :external-format-in :utf-8)))
  +    ($ (initialize (drakma-utf8 "http://www.google.com/search" 
  +                                :parameters `(("q" . ,term)))))
       (let ((node ($ "#res #search li")))
         (unless (= 0 (length node))
           (values (cl-ppcre:register-groups-bind (url) ("\\?q=(.*?)&" ($ node "h3 a" (attr :href) (node))) url)
  
positive.code: (define-command (search image) (&rest query) (:documentation "Query google images and return the link to the first image in the results.")
    (setf query (format NIL "~{~a~^ ~}" query))
    (let* ((stream
            (drakma:http-request "https://ajax.googleapis.com/ajax/services/search/images" :want-stream T
                                 :parameters `(("q" . ,query) ("v" . "1.0"))
                                 :external-format-out :utf-8
                                 :external-format-in :utf-8))
           (data (json:decode-json stream))
           (results (cdr (assoc :results (cdr (assoc :response-data data))))))
      (close stream)
  
negative.code: (define-command (search touhou) (&rest query) (:documentation "Search en.touhouwiki.net.")
    (mediawiki-search-wrap event query "http://en.touhouwiki.net/wiki/" "http://en.touhouwiki.net/api.php" 0 "title"))
  
  (define-command (search jigen) (symbol &optional n) (:documentation "Search Jigen.net, a kanji character database.")
    (let ((lquery:*lquery-master-document*))
      ($ (initialize (drakma-utf8 (format NIL "http://jigen.net/data/~a?type2=1&rs=-1" (drakma:url-encode symbol :utf-8)))))
  