From 9db2f5b34792e5fac5c8d9b9f0e228b5e64c2a1e Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Wed, 12 May 2010 18:08:49 -0400
Subject: [PATCH] 1.722: move CMUCL's modules: from the start to the end of the
 wrapping-source-registry (by rtoym's request)

---
 asdf.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index bd7f550e..a5e6d8fb 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -70,7 +70,7 @@
                 :test 'equalp :key 'car))
   (let* ((asdf-version
           ;; the 1+ helps the version bumping script discriminate
-          (subseq "VERSION:1.721" (1+ (length "VERSION"))))
+          (subseq "VERSION:1.722" (1+ (length "VERSION"))))
          (existing-asdf (find-package :asdf))
          (vername '#:*asdf-version*)
          (versym (and existing-asdf
@@ -3147,9 +3147,9 @@ with a different configuration, so the configuration would be re-read then."
 
 (defun wrapping-source-registry ()
   `(:source-registry
-    #+cmu (:tree #p"modules:")
     #+sbcl (:tree ,(getenv "SBCL_HOME"))
-   :inherit-configuration))
+    :inherit-configuration
+    #+cmu (:tree #p"modules:")))
 (defun default-source-registry ()
   (flet ((try (x sub) (try-directory-subpath x sub :type :directory)))
     `(:source-registry
-- 
GitLab