Commit e8f0ce67 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

UIOP: fix issues with new XDG configuration found while testing.

parent 1eb5a2d4
...@@ -333,7 +333,7 @@ also \"Configuration DSL\"\) in the ASDF manual." ...@@ -333,7 +333,7 @@ also \"Configuration DSL\"\) in the ASDF manual."
(mapcar #'(lambda (d) (resolve-location `(,d ,more))) (mapcar #'(lambda (d) (resolve-location `(,d ,more)))
(or (getenv-absolute-directories "XDG_CONFIG_DIRS") (or (getenv-absolute-directories "XDG_CONFIG_DIRS")
(os-cond (os-cond
((os-windows-p) (xdg-data-dirs "config/" more)) ((os-windows-p) (xdg-data-dirs "config/"))
(t (mapcar 'parse-unix-namestring '("/etc/xdg/"))))))) (t (mapcar 'parse-unix-namestring '("/etc/xdg/")))))))
(defun xdg-cache-home (&rest more) (defun xdg-cache-home (&rest more)
...@@ -367,6 +367,7 @@ also \"Configuration DSL\"\) in the ASDF manual." ...@@ -367,6 +367,7 @@ also \"Configuration DSL\"\) in the ASDF manual."
MORE may contain specifications for a subpath relative to these directories: a MORE may contain specifications for a subpath relative to these directories: a
subpathname specification and keyword arguments as per RESOLVE-LOCATION \(see subpathname specification and keyword arguments as per RESOLVE-LOCATION \(see
also \"Configuration DSL\"\) in the ASDF manual." also \"Configuration DSL\"\) in the ASDF manual."
(declare (ignorable more))
(os-cond (os-cond
((os-unix-p) (list (resolve-absolute-location `(,(parse-unix-namestring "/etc/") ,more)))))) ((os-unix-p) (list (resolve-absolute-location `(,(parse-unix-namestring "/etc/") ,more))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment