anchor.diff:       swank-repl))
     (read-message connection)
     ;; Start it up
  -  (emacs-rex connection '(swank:init-presentations))
  -  (emacs-rex connection '(swank-repl:create-repl nil :coding-system "utf-8-unix"))
  +  (emacs-rex-string connection "(swank:init-presentations)")
  +  (emacs-rex-string connection "(swank-repl:create-repl nil :coding-system \"utf-8-unix\")")
     ;; Wait for startup
     (read-message connection)
     ;; Read all the other messages, dumping them
  
positive.code:   "Request that the Swank server load contrib modules.
  `requirements` must be a list of symbols, e.g. '(swank-repl swank-media)."
    (emacs-rex connection
               `(swank:swank-require ',(loop for item in requirements collecting
                                         (intern (symbol-name item)
                                                 (find-package :swank-io-package))))))
  
  (defun request-listener-eval (connection string &optional continuation)
    "Request that Swank evaluate a string of code in the REPL."
    (emacs-rex connection `(swank-repl:listener-eval ,string)
               :continuation continuation
               :thread ":repl-thread"))
  
  ;;; Reading/parsing messages
  
  
negative.code:      (let ((*package* (find-package :swank-io-package))
             (*print-case* :downcase))
         ,@body)))
  
  ;;; Encoding and decoding messages
  
  