CMUCL commit: src/contrib/asdf (asdf.lisp)

[Raymond Toy]

    Date: Thursday, May 13, 2010 @ 13:13:53
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/contrib/asdf

Modified: asdf.lisp

Update to asdf version 1.722.  This moves cmu's contrib modules to the
end of the source registry so that users can use other versions if so
desired.


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


Index: src/contrib/asdf/asdf.lisp
diff -u src/contrib/asdf/asdf.lisp:1.2 src/contrib/asdf/asdf.lisp:1.3
--- src/contrib/asdf/asdf.lisp:1.2	Tue May 11 21:55:03 2010
+++ src/contrib/asdf/asdf.lisp	Thu May 13 13:13:52 2010
@@ -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 @@
 
 (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