anchor.diff:  (defmethod expand-data-path ((profile data-profile) (path data-manager-data-path))
     (expand-default-path
      path
  -   :root (uiop:merge-pathnames* (str:concat (context-name path) "-web-context")
  -                                (dirname path))))
  -
  -(defun data-manager-data-path-for-context (name)
  -  (let ((ref (format nil "~a-web-context" name)))
  -    (make-instance 'data-manager-data-path
  -                   :ref ref
  -                   :dirname (uiop:xdg-data-home +data-root+ ref))))
  +   :root (uiop:strcat (uiop:native-namestring (dirname path))
  +                      (uiop:directory-separator-for-host)
  +                      (str:concat (context-name path) "-web-context"))))
   
   (define-class data-manager-cache-path (data-manager-data-path)
     ((dirname (uiop:xdg-cache-home +data-root+)))
     (:export-class-name-p t)
     (:accessor-name-transformer (class*:make-name-transformer name)))
   
  -(define-class gtk-extensions-data-path (data-path)
  -  ((dirname (uiop:xdg-config-home +data-root+ "extensions"))
  +(define-class gtk-extensions-data-path (data-manager-data-path)
  +  ((dirname (uiop:native-namestring (uiop:xdg-config-home +data-root+)))
      (ref :initform "gtk-extensions"))
     (:export-class-name-p t)
     (:accessor-name-transformer (class*:make-name-transformer name)))
  
positive.code:   "We shouldn't enable (possibly) user-identifying extensions for `nosave-data-profile'."
    nil)
  
  (defun gtk-extensions-data-path-for-context (name)
    (let ((ref (format nil "~a-gtk-extensions" name)))
      (make-instance 'data-manager-cache-path
                     :ref ref
                     :dirname (uiop:xdg-config-home +data-root+ ref))))
  
  (define-class gtk-download (download)
    ((gtk-object)
  
negative.code: 
  (define-class data-manager-data-path (data-path)
    ((context-name (error "Context name required."))
     (dirname (uiop:native-namestring (uiop:xdg-data-home +data-root+)))
     (ref "web-context"))
    (:export-class-name-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  