anchor.diff:    (declare (ignore browser))
     ;; TODO: Test this!
     (funcall thunk))
  +
  +(defun set-renderer ()
  +  (replace-class window qt-window)
  +  (replace-class buffer qt-buffer)
  +  (replace-class internal-buffer qt-internal-buffer)
  +  (replace-class browser qt-browser))
  +
  +(set-renderer)
  
positive.code: 
  (defclass-export qt-browser (browser)
    ((application :accessor application)))
  
  (setf (find-class 'browser) (find-class 'qt-browser))
  
  (defmethod ffi-initialize ((browser qt-browser) urls startup-timestamp)
    (log:debug "Initializing Qt Interface")
  
negative.code:    (box-layout :accessor box-layout)
     (minibuffer-view :accessor minibuffer-view)))
  
  (defclass-export qt-buffer (buffer)
    ((qt-object :accessor qt-object)))
  
  (defclass-export qt-internal-buffer (internal-buffer qt-buffer) ())
  
  (defmethod initialize-instance :after ((window qt-window) &key)
    (with-slots (id qt-object box-layout active-buffer minibuffer-view) window
  