Trying to fix lisp-unit2 asdf2 interop

re #5

Author: bobbysmith007

interop.lisp

@@ -11,7 +11,7 @@
   (declare (ignore (start)))
   (error "Requires asdf"))
 
-#+asdf
+#+asdf3
 (defun get-system-list (start &aux list)
   (labels ((do-it (sys-name)
              (let* ((sys (asdf/system:find-system sys-name))
@@ -23,6 +23,18 @@
     (mapc #'do-it (alexandria:ensure-list start))
     list))
 
+#-asdf3 #+asdf
+(defun get-system-list (start &aux list)
+  (labels ((do-it (sys-name)
+             (let* ((sys (asdf:find-system sys-name))
+                    (deps (slot-value sys 'asdf:load-dependencies)))
+               ;; ensures that all dependencies are before things that depend on them
+               (setf list (delete sys-name list :test #'equal))
+               (push sys-name list)
+               (mapc #'do-it deps))))
+    (mapc #'do-it (alexandria:ensure-list start))
+    list))
+
 #-asdf
 (defgeneric test-asdf-system-recursive (sys-name &key ignore-systems)
   (:method (sys-name &key ignore-systems)