anchor.diff:    (:accessor-name-transformer (class*:make-name-transformer name)))
   (define-user-class scheme (gtk-scheme))
   
  -(defun make-context (name buffer &key ephemeral-p)
  +(defun make-context (name &key ephemeral-p)
     (let* ((context
              (if ephemeral-p
                  ;; An ephemeral data-manager cannot be given any directories, even if they are set to nil.
  
positive.code:                        'webkit-web-view-ephemeral
                         'webkit:webkit-web-view)
                     :web-context (get-context *browser* (if internal-p +internal+ (context-name buffer))
                                               buffer
                                               :ephemeral-p ephemeral-p))))
  
  (defun make-decide-policy-handler (buffer)
  
negative.code:                              (if ephemeral-p
                                   (ephemeral-web-contexts browser)
                                   (web-contexts browser))
                               (make-context name :ephemeral-p ephemeral-p)))
  
  (define-class gtk-window ()
    ((gtk-object)
  