anchor.diff:  
   (defclass window ()
     ((id :accessor id :initarg :id)
  -   (active-buffer :accessor active-buffer)
  +   (active-buffer :accessor active-buffer :initform nil)
      (minibuffer-callbacks :accessor minibuffer-callbacks
                            :initform (make-hash-table :test #'equal))))
   
  
positive.code:                               (buffer buffer))
    "Set the active buffer for the active window."
    (let ((window-active (window-active interface)))
      (setf (active-buffer window-active) buffer)
      (window-set-active-buffer interface window-active buffer)))
  
negative.code:       "window.set.active.buffer" (id window) (id buffer))
       :host host :port port :url url)
      (setf (active-buffer window) buffer)))
  
  (defmethod window-set-active-buffer ((interface remote-interface)
                                        (window window)
                                        (buffer buffer))
      (let ((parent-window (find-if
                            (lambda (window) (eql (active-buffer window) buffer))
                            (alexandria:hash-table-values (windows *interface*)))))
        (if parent-window ;; if visible on screen perform swap, otherwise just show
            (let ((temp-buffer (buffer-make *interface*))
                  (buffer-swap (active-buffer window)))
              (print "HELLO SWAP")
              (%window-set-active-buffer interface parent-window temp-buffer)
              (%window-set-active-buffer interface window buffer)
              (%window-set-active-buffer interface parent-window buffer-swap)
              (buffer-delete interface temp-buffer))
            (%window-set-active-buffer interface window buffer))))
  
  (defmethod window-active-buffer ((interface remote-interface) window)
    "Return the active buffer for a given window."
  