Commit e8fb25423409b3df49262afefb66652052537eb7
2017-02-27T13:53:25
Set *repos* to *manifest* repos.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
diff --git a/repo.lisp b/repo.lisp
index 9493302..eb7dca5 100644
--- a/repo.lisp
+++ b/repo.lisp
@@ -509,6 +509,7 @@
(defmethod install ((x string))
(when *manifest*
(maybe-reload-manifest *manifest*))
+ (setq *repos* (manifest-repos *manifest*))
(if (manifest-file-p x)
(install (manifest-or-die x))
(install (repo-or-die x))))
@@ -519,11 +520,13 @@
(defmethod install ((x symbol))
(when *manifest*
(maybe-reload-manifest *manifest*))
+ (setq *repos* (manifest-repos *manifest*))
(install (repo-or-die x)))
(defmethod update ((x string))
(when *manifest*
(maybe-reload-manifest *manifest*))
+ (setq *repos* (manifest-repos *manifest*))
(if (manifest-file-p x)
(update (manifest-or-die x))
(update (repo-or-die x))))
@@ -534,6 +537,7 @@
(defmethod update ((x symbol))
(when *manifest*
(maybe-reload-manifest *manifest*))
+ (setq *repos* (manifest-repos *manifest*))
(update (repo-or-die x)))
;; system-definition
@@ -541,6 +545,7 @@
(defun sysdef (x)
(when *manifest*
(maybe-reload-manifest *manifest*))
+ (setq *repos* (manifest-repos *manifest*))
(let ((repo (or (find-repo-by-package x)
(repo x))))
(when repo
@@ -552,7 +557,7 @@
(defun boot ()
(let ((manifest-file (str *repo-dir* "/repo.manifest")))
(when (probe-file manifest-file)
- (setq *manifest* (manifest manifest-file)
- *repos* (manifest-repos *manifest*))
+ (setq *manifest* (manifest manifest-file))
+ (setq *repos* (manifest-repos *manifest*))
(when (find-package :asdf)
(pushnew 'sysdef asdf:*system-definition-search-functions*)))))