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-05 11:09:56.066229482 +0100
@@ -12535,10 +12535,15 @@
     (find-preferred-file (system-config-pathnames *output-translations-file*)
                          :direction direction))
   (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*)
+    (find-preferred-file (list (xdg-config-home *output-translations-directory*))
                          :direction direction))
+  (defun system-output-translations-directory-pathname (&key (direction :input))
+    `(: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"))
 
@@ -12921,10 +12926,15 @@
     (find-preferred-file (system-config-pathnames *source-registry-file*)
                          :direction direction))
   (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*)
+    (find-preferred-file (list (xdg-config-home *source-registry-directory*))
                          :direction direction))
+  (defun system-source-registry-directory (&key (direction :input))
+    `(: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"))
 
s='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/system.scm?id=25c2a2fdb21742f479df113202e7955f3a1ccc52&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-06-15 00:25:20 +0200'>2022-06-15</span></td><td><a href='/guix/commit/tests/system.scm?id=7046e777212233b89df68379c270b448c45195ce'>system: &lt;operating-system&gt; compiler truly honors the 'system' argument.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/55951&gt;.

* gnu/system.scm (operating-system-compiler): Parameterize
'%current-system' and '%current-target-system' before calling
'operating-system-derivation'.
* tests/system.scm ("lower-object, %current-system sensitivity"): New
test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/tests/system.scm?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>The old 'target' field is deprecated; adjust the sources to use the new
'targets' one instead.

* doc/guix-cookbook.texi&lt;target&gt;: Replace by 'targets'.
* gnu/bootloader/grub.scm: Likewise.
* gnu/installer/parted.scm: Likewise.
* gnu/machine/digital-ocean.scm: Likewise.
* gnu/system/examples/asus-c201.tmpl: Likewise
* gnu/system/examples/bare-bones.tmpl: Likewise
* gnu/system/examples/bare-hurd.tmpl: Likewise
* gnu/system/examples/beaglebone-black.tmpl: Likewise
* gnu/system/examples/desktop.tmpl: Likewise
* gnu/system/examples/docker-image.tmpl: Likewise
* gnu/system/examples/lightweight-desktop.tmpl: Likewise
* gnu/system/examples/vm-image.tmpl: Likewise
* gnu/system/examples/yggdrasil.tmpl: Likewise
* gnu/system/hurd.scm: Likewise
* gnu/system/images/hurd.scm: Likewise
* gnu/system/images/novena.scm: Likewise
* gnu/system/images/pine64.scm: Likewise
* gnu/system/images/pinebook-pro.scm: Likewise
* gnu/system/images/rock64.scm: Likewise
* gnu/system/install.scm: Likewise
* gnu/system/vm.scm: Likewise
* gnu/tests.scm: Likewise
* gnu/tests/ganeti.scm: Likewise
* gnu/tests/install.scm: Likewise
* gnu/tests/nfs.scm: Likewise
* gnu/tests/telephony.scm: Likewise
* tests/boot-parameters.scm: Likewise
* tests/system.scm: Likewise
</span></span></td><td>Maxim Cournoyer</td></tr>