anchor.diff:    "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))))
  +(defmethod expand-data-path ((profile data-profile) (path gtk-extensions-data-path))
  +  (expand-default-path
  +   path
  +   :root (uiop:strcat (uiop:native-namestring (dirname path))
  +                      (uiop:directory-separator-for-host)
  +                      (str:concat (context-name path) "-gtk-extensions"))))
   
   (define-class gtk-download (download)
     ((gtk-object)
  
positive.code: 
  (define-class data-manager-data-path (data-path)
    ((context-name (error "Context name required."))
     (dirname (uiop:xdg-data-home +data-root+))
     (ref "web-context"))
    (:export-class-name-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
negative.code: (defmethod expand-data-path ((profile data-profile) (path data-manager-data-path))
    (expand-default-path
     path
     :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-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)))
  