RE: Re: ASDF/INTERFACE::TRAVERSE-SUB-ACTIONS

[Marco Antoniotti]

Thank you.   I will include the new version in HELambdaP.   Apologies for the miscommunication.   All the best   Marco Antoniotti DISCo, Università degli Studi di Milano-Bicocca +39 02 6448 7901 bimib.disco.unimib.it     From: Robert Goldman Sent: Tuesday, May 5, 2020 19:27 To: Marco Antoniotti Cc: asdf-devel@common-lisp.net Subject: Re: ASDF/INTERFACE::TRAVERSE-SUB-ACTIONS   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. (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: (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.