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