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.