Skip to content
Snippets Groups Projects
Commit 9db2f5b3 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.722: move CMUCL's modules: from the start to the end of the wrapping-source-registry

(by rtoym's request)
parent 43ece156
No related branches found
No related tags found
No related merge requests found
...@@ -70,7 +70,7 @@ ...@@ -70,7 +70,7 @@
:test 'equalp :key 'car)) :test 'equalp :key 'car))
(let* ((asdf-version (let* ((asdf-version
;; the 1+ helps the version bumping script discriminate ;; 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)) (existing-asdf (find-package :asdf))
(vername '#:*asdf-version*) (vername '#:*asdf-version*)
(versym (and existing-asdf (versym (and existing-asdf
...@@ -3147,9 +3147,9 @@ with a different configuration, so the configuration would be re-read then." ...@@ -3147,9 +3147,9 @@ with a different configuration, so the configuration would be re-read then."
(defun wrapping-source-registry () (defun wrapping-source-registry ()
`(:source-registry `(:source-registry
#+cmu (:tree #p"modules:")
#+sbcl (:tree ,(getenv "SBCL_HOME")) #+sbcl (:tree ,(getenv "SBCL_HOME"))
:inherit-configuration)) :inherit-configuration
#+cmu (:tree #p"modules:")))
(defun default-source-registry () (defun default-source-registry ()
(flet ((try (x sub) (try-directory-subpath x sub :type :directory))) (flet ((try (x sub) (try-directory-subpath x sub :type :directory)))
`(:source-registry `(:source-registry
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment