diff --git a/uiop/configuration.lisp b/uiop/configuration.lisp index e866c6c1ae6b16ddcc010831f0814244f806e57d..b4aab199263e9ab37c60c748173de27e2354385e 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))))))