From e8f0ce67ca440ecd751d9cf8b0527fb2cf29bc5c Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 8 Jun 2015 15:29:10 -0400 Subject: [PATCH] UIOP: fix issues with new XDG configuration found while testing. --- uiop/configuration.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/uiop/configuration.lisp b/uiop/configuration.lisp index e866c6c1..b4aab199 100644 --- a/uiop/configuration.lisp +++ b/uiop/configuration.lisp @@ -333,7 +333,7 @@ also \"Configuration DSL\"\) in the ASDF manual." (mapcar #'(lambda (d) (resolve-location `(,d ,more))) (or (getenv-absolute-directories "XDG_CONFIG_DIRS") (os-cond - ((os-windows-p) (xdg-data-dirs "config/" more)) + ((os-windows-p) (xdg-data-dirs "config/")) (t (mapcar 'parse-unix-namestring '("/etc/xdg/"))))))) (defun xdg-cache-home (&rest more) @@ -367,6 +367,7 @@ also \"Configuration DSL\"\) in the ASDF manual." MORE may contain specifications for a subpath relative to these directories: a subpathname specification and keyword arguments as per RESOLVE-LOCATION \(see also \"Configuration DSL\"\) in the ASDF manual." + (declare (ignorable more)) (os-cond ((os-unix-p) (list (resolve-absolute-location `(,(parse-unix-namestring "/etc/") ,more)))))) -- GitLab