Commit 5f0e464b7cd6b934110889de0e131b3be2802636

Thomas de Grivel 2017-02-27T13:51:43

Initialize packages to repo name unless specified.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
diff --git a/repo.lisp b/repo.lisp
index 5f7de70..b7e4a89 100644
--- a/repo.lisp
+++ b/repo.lisp
@@ -200,9 +200,11 @@
 
 (defmethod initialize-instance :after ((repo repo) &rest initargs)
   (declare (ignore initargs))
-  (with-slots (dir name) repo
+  (with-slots (dir name packages) repo
     (setf (slot-value repo 'local-dir)
-	  (format nil "~A/~A/~A" *repo-dir* dir name))))
+	  (format nil "~A/~A/~A" *repo-dir* dir name))
+    (unless (slot-boundp repo 'packages)
+      (setf packages (list name)))))
 
 (defmethod repo-asd ((repo repo) &optional
 				   (package (first (repo-packages repo))))