1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
| | Search for ASDF configuration files first in user directories, and then in
Guix profiles.
diff -ru a/asdf-3.3.4.lisp b/asdf-3.3.4.lisp
--- a/asdf-3.3.4.lisp 2020-02-14 20:16:22.000000000 +0100
+++ b/asdf-3.3.4.lisp 2020-12-03 13:57:54.843428936 +0100
@@ -12537,8 +12537,12 @@
(defun user-output-translations-directory-pathname (&key (direction :input))
(xdg-config-pathname *output-translations-directory* direction))
(defun system-output-translations-directory-pathname (&key (direction :input))
- (find-preferred-file (system-config-pathnames *output-translations-directory*)
- :direction direction))
+ `(:output-translations
+ ,@(loop :for dir :in (filter-pathname-set
+ (xdg-config-dirs
+ "common-lisp/asdf-output-translations.conf.d/"))
+ :collect `(:include ,dir))
+ :inherit-configuration))
(defun environment-output-translations ()
(getenv "ASDF_OUTPUT_TRANSLATIONS"))
@@ -12923,8 +12927,12 @@
(defun user-source-registry-directory (&key (direction :input))
(xdg-config-pathname *source-registry-directory* direction))
(defun system-source-registry-directory (&key (direction :input))
- (find-preferred-file (system-config-pathnames *source-registry-directory*)
- :direction direction))
+ `(:source-registry
+ ,@(loop :for dir :in (filter-pathname-set
+ (xdg-config-dirs
+ "common-lisp/source-registry.conf.d/"))
+ :collect `(:include ,dir))
+ :inherit-configuration))
(defun environment-source-registry ()
(getenv "CL_SOURCE_REGISTRY"))
|