Commit d10387e36dd0c445588444a6fc9d4d29776bac7d

Thomas de Grivel 2017-01-16T10:42:14

Install behaves like update when local directory is present.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
diff --git a/repo.lisp b/repo.lisp
index 285f5c9..82170d4 100644
--- a/repo.lisp
+++ b/repo.lisp
@@ -193,8 +193,9 @@
 
 (defmethod install ((repo git-repo))
   (let ((local (repo-local-dir repo)))
-    (unless (probe-dir local)
-      (git-clone repo))))
+    (if (probe-dir local)
+	(git-pull repo)
+	(git-clone repo))))
 
 (defmethod git-pull ((repo git-repo))
   (let ((local (repo-local-dir repo)))