anchor.diff:  (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))
  +           (drakma-utf8 "https://ajax.googleapis.com/ajax/services/search/images"
  +                        :want-stream T
  +                        :parameters `(("q" . ,query) ("v" . "1.0"))))
            (data (json:decode-json stream))
            (results (cdr (assoc :results (cdr (assoc :response-data data))))))
       (close stream)
  
positive.code:         (url (google-term (format NIL "clhs+Body+~{~a~^+~}" query))))
      (if url
          (progn
            ($ (initialize (drakma:http-request url)))
            (respond event "~a ~a" ($ "body>a" (eq 0) (text) (node)) url))
          (respond event "Nothing found."))))
  
  
negative.code: (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)))))
      (let ((results ($ ".search_result_row")))
        (if (< 0 (length results))
            (let ((page ($ results (eq 0) (attr :href) (node))))
  