anchor.diff:  ;;   (webkit:webkit-web-inspector-show
   ;;    (webkit:webkit-web-view-get-inspector (gobject-gtk-object buffer))))
   
  -;; (define-ffi-method ffi-print-status ((window gobject-gtk-window) text)
  -;;   (let ((text (markup:markup
  -;;                (:head (:style (style (status-buffer window))))
  -;;                (:body (markup:raw text)))))
  -;;     (with-slots (status-buffer) window
  -;;       (webkit2:webkit-web-view-evaluate-javascript
  -;;        (gobject-gtk-object (status-buffer window))
  -;;        (ps:ps (setf (ps:@ document Body |innerHTML|) ; TODO: Rename all "Body" to "body".
  -;;                     (ps:lisp text)))))))
  +(define-ffi-method ffi-print-status ((window gobject-gtk-window) text)
  +  (let ((text (markup:markup
  +               (:head (:style (style (status-buffer window))))
  +               (:body (markup:raw text)))))
  +    (with-slots (status-buffer) window
  +      (webkit2:webkit-web-view-evaluate-javascript
  +       (gtk-object-pointer (status-buffer window))
  +       (ps:ps (setf (ps:@ document body |innerHTML|)
  +                    (ps:lisp text)))))))
   
   (define-ffi-method ffi-print-message ((window gobject-gtk-window) text)
     (let ((text (markup:markup
  
positive.code:   (setf (slot-value browser 'last-active-window)
          (or (find-if (lambda (window)
                         (gir:property (gtk-object window) 'is-active))
                       (window-list)
                       :key #'gtk-object)
              (first (window-list))
              (slot-value browser 'last-active-window))))
  
  
negative.code:     (setf gtk-object (make-web-view))))
  
  (defun renderer-thread-p ()
    (string= "main thread" (bt:thread-name (bt:current-thread))))
  
  (defmethod ffi-within-renderer-thread ((browser gobject-gtk-browser) thunk)
    (declare (ignore browser))
  