anchor.diff:           (data (drakma:http-request url :parameters parameters :external-format-in :utf-8 :external-format-out :utf-8)))
       (cl-json:decode-json-from-string data)))
   
  -
  -(define-command (google translate) (&rest text) (:documentation "Translate a given text into english.")
  -  (with-key (:translate-key)
  -    (multiple-value-bind (translation language) (translate (format NIL "~{~a~^ ~}" text) (uc:config-tree :translate-key))
  -      (respond event "[~a → en] ~a" language translation))))
  -
  -(define-command (google translate-to) (target-language &rest text) (:documentation "Translate a given text into a specific language.")
  -  (with-key (:translate-key)
  -    (multiple-value-bind (translation language) (translate (format NIL "~{~a~^ ~}" text) (uc:config-tree :translate-key) :to target-language)
  -      (respond event "[~a → ~a] ~a" language target-language translation))))
  -
  -(define-command (google translate-from) (source-language &rest text) (:documentation "Translate a given text from a specific language into english.")
  -  (with-key (:translate-key)
  -    (multiple-value-bind (translation language) (translate (format NIL "~{~a~^ ~}" text) (uc:config-tree :translate-key) :from source-language)
  -      (declare (ignore language))
  -      (respond event "[~a → en] ~a" source-language translation))))
  -
  -(define-command (google translate-from-to) (source-language target-language &rest text) (:documentation "Translate a given text from a language into another.")
  -  (with-key (:translate-key)
  -    (multiple-value-bind (translation language) (translate (format NIL "~{~a~^ ~}" text) (uc:config-tree :translate-key) :from source-language :to target-language)
  -      (declare (ignore language))
  -      (respond event "[~a → ~a] ~a" source-language target-language translation))))
  +(defun real-chan (event)
  +  (format NIL "~a/~a" (name (server event)) (channel event)))
   
   (defun ensure-known-language (language)
     (let ((short (or (gethash language *language-code-map*) language)))
  
positive.code:       (let ((data (first (cdr (assoc :translations (cdr (assoc :data json)))))))
          (values (cdr (assoc :translated-text data))
                  (cdr (assoc :detected-source-language data)))))))
  
  
  (define-command (google geocode) (&rest address) (:documentation "Look up geocoding information about an address.")
  
negative.code: 
  (defvar *language-code-map*)
  
  (define-module google ()
      ((%interpreted-chans :initform () :accessor interpreted-chans))
    (:documentation "Interact with various Google APIs."))
  
  (define-group google :documentation "Interact with various google services.")
  