anchor.diff:    (:accessor-name-transformer (class*:make-name-transformer name)))
   
   (defmethod initialize-instance :after ((file data-manager-file) &key)
  -  (setf (nfiles:base-path file)
  +  (setf (slot-value file 'nfiles:base-path)
           (pathname (str:concat (context-name file) "-web-context"))))
   
   (defmethod nfiles:resolve ((profile nosave-profile) (file data-manager-file))
     "We shouldn't store any `data-manager' data for `nosave-profile'."
     #p"")
   
  -(define-class data-manager-data-file (nfiles:data-file data-manager-file)
  +(define-class data-manager-data-directory (nfiles:data-file data-manager-file)
     ()
     (:export-class-name-p t)
     (:accessor-name-transformer (class*:make-name-transformer name)))
  
positive.code:                    (make-instance 'webkit-web-context
                                    :website-data-manager
                                    (make-instance 'webkit-website-data-manager
                                                   :base-data-directory (nfiles:expand data-manager-data-directory)
                                                   :base-cache-directory (nfiles:expand data-manager-cache-directory))))))
             (gtk-extensions-path (nfiles:expand (make-instance 'gtk-extensions-directory :context-name name)))
             (cookie-manager (webkit:webkit-web-context-get-cookie-manager context)))
        (unless (or ephemeral-p
  
negative.code:         (let ((cookies-path (nfiles:expand (make-instance 'cookies-file :context-name name))))
            (webkit:webkit-cookie-manager-set-persistent-storage
             cookie-manager
             (uiop:native-namestring cookies-path)
             :webkit-cookie-persistent-storage-text))
          (set-cookie-policy cookie-manager (default-cookie-policy *browser*)))
        (maphash
  