Join GitHub today
GitHub is home to over 40 million developers working together to host and review code, manage projects, and build software together.Sign up
Can it be as simple as in the following quick-editing?
(defun add-systems-recursively (names bundle) (with-consistent-dists (labels ((add-one (name) (let ((system (restart-case (ensure-system name bundle) (ignore () :report "Ignore this system in the bundle.")))) (when system (dolist (required-system-name (required-systems system)) (add-one required-system-name)))))) (map nil #'add-one names))) bundle)