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"))
 
uix/log/gnu/system?id=34d40ea17033cfb8208c2faba27cd17060d4c112'>system</a>/<a href='/guix/log/gnu/system/images?id=34d40ea17033cfb8208c2faba27cd17060d4c112'>images</a>/<a href='/guix/log/gnu/system/images/pinebook-pro.scm?id=34d40ea17033cfb8208c2faba27cd17060d4c112'>pinebook-pro.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/system/images/pinebook-pro.scm?id=34d40ea17033cfb8208c2faba27cd17060d4c112&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-09-07 14:24:53 +0200'>2022-09-07</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=e917f1242c169f011dedd133515de5e87e267b93'>system: images: Define the platform in image-types.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-05-25 09:27:25 +0200'>2022-05-25</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=dab819d5c4c55609efae098c8e3c2f2757c34e5b'>Move (gnu platform) and (gnu platforms ...) to guix/.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2021-10-11 12:05:39 +0000'>2021-10-11</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=d5073fd113c621fe0b55382f7dd336ee118e759f'>gnu: Add platform support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-08-28 17:47:12 +0200'>2021-08-28</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=1dbed7e0988842b8fe8189b7a7e64ff72f72cd61'>images: pinebook-pro: Fix the agetty baud rate.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-02-17 10:57:02 +0100'>2021-02-17</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=6e8cdf1d26092cb9654e179b04730fff7c15c94f'>scripts: system: Accept &lt;image&gt; records as input.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-01-20 13:44:14 +0100'>2021-01-20</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=423653b4ad1b205541d0dbe02973717fd40be549'>images: pinebook-pro: Fix default serial port.</a><span class='msg-avail'>...</span></td><td>Caliph Nomble</td></tr>
<tr><td><span title='2021-01-10 16:07:44 +0100'>2021-01-10</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=b6473e506e4161b539fe710fb1b3e69eaeac7069'>system: image: Fix root offset on rockchip platforms.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-11-20 17:00:27 +0100'>2020-11-20</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=17d9a91e6b8bdd7709b536d34a1f2ef3fcff3b9d'>image: Add pinebook-pro support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>