anchor.diff:  
   (defmethod window-exists ((interface remote-interface) (window window))
     "Return if a window exists."
  -  (with-slots (host port url windows) interface
  -    (s-xml-rpc:xml-rpc-call
  -     (s-xml-rpc:encode-xml-rpc-call "window.exists" (id window))
  -     :host host :port port :url url)))
  +  (%xml-rpc-send interface "window.exists" (id window)))
   
   (defmethod %window-set-active-buffer ((interface remote-interface)
  -                                     (window window)
  -                                     (buffer buffer))
  -  (with-slots (host port url) interface
  -    (s-xml-rpc:xml-rpc-call
  -     (s-xml-rpc:encode-xml-rpc-call
  -      "window.set.active.buffer" (id window) (id buffer))
  -     :host host :port port :url url)
  -    (setf (active-buffer window) buffer)))
  +                                      (window window)
  +                                      (buffer buffer))
  +  (%xml-rpc-send interface "window.set.active.buffer" (id window) (id buffer))
  +  (setf (active-buffer window) buffer))
   
   (defmethod window-set-active-buffer ((interface remote-interface)
                                         (window window)
  
positive.code:     (log:debug "Stopping server")
      (s-xml-rpc:stop-server (active-connection interface))))
  
  (defmethod window-make ((interface remote-interface))
    "Create a window and return the window object."
    (with-slots (host port url windows) interface
      (let* ((window-id (s-xml-rpc:xml-rpc-call
                         (s-xml-rpc:encode-xml-rpc-call "window.make")
                         :host host :port port :url url))
             (window (make-instance 'window :id window-id)))
        (setf (gethash window-id windows) window)
        window)))
  
  (defmethod window-set-title ((interface remote-interface) (window window) title)
    "Set the title for a given window."
    (with-slots (host port url windows) interface
      (s-xml-rpc:xml-rpc-call
       (s-xml-rpc:encode-xml-rpc-call "window.set.title" (id window) title)
       :host host :port port :url url)))
  
  (defmethod window-delete ((interface remote-interface) (window window))
    "Delete a window object and remove it from the hash of windows."
    (with-slots (host port url windows) interface
      (s-xml-rpc:xml-rpc-call
       (s-xml-rpc:encode-xml-rpc-call "window.delete" (id window))
       :host host :port port :url url)
      (remhash (id window) windows)))
  
  (defmethod window-active ((interface remote-interface))
    "Return the window object for the currently active window."
    (with-slots (host port url windows) interface
      (let ((window (gethash (s-xml-rpc:xml-rpc-call
                              (s-xml-rpc:encode-xml-rpc-call "window.active")
                              :host host :port port :url url)
                             windows)))
        (when window
          (setf (last-active-window interface) window))
  
negative.code: 
  (defmethod window-set-minibuffer-height ((interface remote-interface)
                                           window height)
    (%xml-rpc-send interface "window.set.minibuffer.height" (id window) height))
  
  (defmethod buffer-make ((interface remote-interface))
    (let* ((buffer-id (%xml-rpc-send
                       interface "buffer.make"
                       ;; TODO: When we need more options, we will need to pass
                       ;; a dictionary.
                       (namestring (merge-pathnames *cookie-path-dir* "cookies.txt"))))
           (buffer (make-instance 'buffer :id buffer-id)))
      (with-slots (buffers) interface
        (setf (gethash buffer-id buffers) buffer))
      buffer))
  
  (defmethod %buffer-make ((interface remote-interface)
                           &optional
  