anchor.diff:              (webkit:webkit-policy-decision-ignore response-policy-decision)
               nil)))))
   
  -(defvar *loading-webkit-history-p* nil
  -  "Internal hack, do not use!")
  -
   (define-ffi-method on-signal-load-changed ((buffer gtk-buffer) load-event)
     ;; `url' can be nil if buffer didn't have any URL associated
     ;; to the web view, e.g. the start page, or if the load failed.
  
positive.code:                       :documentation "Directory in which the WebKitGTK
  data-manager will store the data separately for each buffer.")
     (gtk-extensions-path (make-instance 'gtk-extensions-data-path)
                          :documentation "Directory to store the WebKit-specific extensions in."))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
negative.code:           ((eq load-event :webkit-load-committed)
             (on-signal-load-committed buffer url))
            ((eq load-event :webkit-load-finished)
             (setf (loading-webkit-history-p buffer) nil)
             (unless (eq (slot-value buffer 'load-status) :failed)
               (setf (slot-value buffer 'load-status) :finished))
             (on-signal-load-finished buffer url)
  