cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- fixed functions that print program's dependencies.

Browse Source
This commit is contained in:
cage 2022-03-19 11:32:08 +01:00
parent 0ece17c469
commit a7e2d823fb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/misc-utils.lisp
View File

@ -988,7 +988,8 @@ to the array"
#+quicklisp
(defun asdf-depends-on (&optional (system-name config:+program-name+))
(let ((symbol-system (alexandria:symbolicate (string-upcase system-name))))
(asdf:system-depends-on (asdf:find-system symbol-system))))
(remove-if-not #'stringp
(asdf:system-depends-on (asdf:find-system symbol-system)))))
#+quicklisp
(defun all-dependencies (system-name)
@ -1000,7 +1001,9 @@ to the array"
(let ((dependencies (get-direct-dependencies i)))
(loop for j in dependencies do
(pushnew j results :test #'string=)
(all-dependencies i))))
(setf results
(remove-duplicates (append results (all-dependencies j))
:test #'string=)))))
(sort results #'string<))))
(defun all-program-dependencies (&optional download)