anchor.diff:  
   (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")
  
positive.code:   (declare (ignore browser))
    ;; TODO: Test this!
    (funcall thunk))
  
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
  