Skip to content

Instantly share code, notes, and snippets.

@svetlyak40wt

svetlyak40wt/asdf-dependency-tree.lisp

Created February 18, 2023 19:00
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save svetlyak40wt/a8ed639bf8fe07caed1531611bcf932d to your computer and use it in GitHub Desktop.
Save svetlyak40wt/a8ed639bf8fe07caed1531611bcf932d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
asdf-dependency-tree.lisp
(defun print-dependency-graph (system-name &key (level 0))
(loop repeat level
do (format t " "))
(format t "~A~%" system-name)
(typecase system-name
((or string symbol)
(let ((system (asdf/system:find-system system-name)))
(loop for dep in (asdf/system:system-depends-on system)
do (print-dependency-graph dep :level (1+ level)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment