On 5 May 2020, at 12:05, Marco Antoniotti wrote:
At a certain point I needed (I still do) the function SYSTEM-INPUT-FILES. I think Fare send me a simple implementation that worked on the ASDF version of that time (long ago, I guess). The function is the following.
``` lisp (defun system-input-files (system) (multiple-value-bind (i o) (while-collecting (i o) (loop for (op . comp) in (plan-actions (traverse-sub-actions 'load-op (find-system system))) do (map () #'i (input-files op comp)) (map () #'o (output-files op comp)))) (remove-if #'(lambda (f) (member f o :test 'pathname-equal)) (remove-duplicates i :from-end t :test 'pathname-equal)))) ```
So what you need here is the full set of plan actions. You should be able to get this as follows:
``` lisp (defun system-input-files (system) (multiple-value-bind (i o) (while-collecting (i o) (loop for (op . comp) in (plan-actions (make-plan nil (make-operation 'load-op) (find-system system))) do (map () #'i (input-files op comp)) (map () #'o (output-files op comp)))) (remove-if #'(lambda (f) (member f o :test 'pathname-equal)) (remove-duplicates i :from-end t :test 'pathname-equal)))) ```
`make-plan` will give you what you need to call `plan-actions` on in place of `traverse-sub-actions`.