anchor.diff:                       :port *core-port*)
                       (uiop:quit))
                   (error (c)
  +                  (declare (ignore c))
                     (let ((new-port (find-port:find-port)))
                       (format *error-output* "Port ~a does not seem to be used by Next, trying ~a instead.~%"
                               *core-port* new-port)
  
positive.code:     (s-xml-rpc:xml-rpc-call
       (apply #'s-xml-rpc:encode-xml-rpc-call method args)
       :host host :port port :url url)))
  
  (defmethod window-make ((interface remote-interface))
    "Create a window and return the window object."
  
negative.code:   (did-finish-navigation (mode buffer) url))
  
  (defclass remote-interface ()
    ((host :accessor host :initform (getf *platform-port-socket* :host))
     (active-connection :accessor active-connection :initform nil)
     (port :accessor port :initform (getf *platform-port-socket* :port))
     (url :accessor url :initform "/RPC2")
     (windows :accessor windows :initform (make-hash-table :test #'equal))
     (total-window-count :accessor total-window-count :initform 0)
     (last-active-window :accessor last-active-window :initform nil)
     (buffers :accessor buffers :initform (make-hash-table :test #'equal))
     (total-buffer-count :accessor total-buffer-count :initform 0)))
  
  (defmethod start-interface ((interface remote-interface))
    "Start the XML RPC Server."
  