Blaaaa

project.lisp

@@ -36,7 +36,7 @@
   ((name :initarg :name :initform (arg! :name) :accessor name)
    (source-directory :accessor source-directory)
    (sources :accessor sources)
-   (disabled-p :initarg :disabled-p :accessor disabled-p)
+   (disabled-p :initarg :disabled-p :initform NIL :accessor disabled-p)
    (excluded-systems :initarg :excluded-systems :accessor excluded-systems)
    (excluded-paths :initarg :excluded-paths :accessor excluded-paths)
    (releases :accessor releases)
@@ -45,7 +45,8 @@
 (defmethod shared-initialize :after ((project project) slots &key (releases NIL releases-p) (sources NIL sources-p) source-directory (verbose T))
   (when source-directory
     (setf (source-directory project) (uiop:truenamize (absolutize source-directory (default-source-directory)))))
-  (when (and (not (slot-boundp project 'source-directory)) (stored-p project))
+  (when (and (not (slot-boundp project 'source-directory))
+             (not (stored-p project)))
     (setf (source-directory project) (pathname-utils:subdirectory (default-source-directory) (name project))))
   (when releases-p
     (setf (releases project) releases))

release.lisp

@@ -218,7 +218,7 @@ Systems:~12t~a~%"
   (setf (name system) (string-downcase (name system)))
   (multiple-value-bind (absolute-p path) (pathname-utils:absolute-p (file system))
     (unless absolute-p
-      (setf (file system) (merge-pathnames path (source-directory (project system)))))))
+      (setf (file system) (merge-pathnames path (source-directory (project (project system))))))))
 
 (defmethod (setf dependencies) :around ((dependencies cons) (system system))
   (call-next-method (delete-duplicates (sort (remove-if #'implementation-specific-dependency-p dependencies) #'string<) :test #'string=) system))

test.lisp

@@ -88,7 +88,9 @@
     (with-standard-io-syntax
       (dolist (form `((require :asdf)
                       ,@(when checkout-directory
-                          `((asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration (:tree ,(pathname-utils:native-namestring checkout-directory))))))
+                          `((asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration
+                                                               ,@(loop for dir in (enlist checkout-directory)
+                                                                       collect `(:tree ,(pathname-utils:native-namestring dir)))))))
                       ,@(when cache-directory
                           `((asdf:initialize-output-translations '(:output-translations :ignore-inherited-configuration (T (,(pathname-utils:native-namestring cache-directory) :implementation))))))
                       (asdf:load-system ',(name system))