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

[Marco Antoniotti]

Hi Robert.   My – minor – bad.   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))))     I had manually exported the function from ASDF, hence the function looked legit, while it was not, as it was sitting in my folders and not in ASDF source code.  Sorry. In any case, I need that function.  A simpler version that was discussed at that time was. (defun system-files (system)   (cons (system-source-file system)         (mapcar 'component-pathname                 (remove-duplicates                  (required-components system                                       :other-systems nil                                       :component-type '(not system))                  :from-end t))))   Any counterindications about the second one?   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 18:32 To: Marco Antoniotti Cc: asdf-devel@common-lisp.net Subject: Re: ASDF/INTERFACE::TRAVERSE-SUB-ACTIONS   Something is really wrong. Look at this transcript: rpg@rpg-mbp-2: ~/lisp/asdf $ git checkout 3.3.4 Note: switching to '3.3.4'.   You are in 'detached HEAD' state. You can look around, make experimental changes and commit them, and you can discard any commits you make in this state without impacting any branches by switching back to a branch.   If you want to create a new branch to retain commits you create, you may do so (now or later) by using -c with the switch command. Example:     git switch -c <new-branch-name>   Or undo this operation with:     git switch -   Turn off this advice by setting config variable advice.detachedHead to false   HEAD is now at 082f4ed4 Bump version to 3.3.4 rpg@rpg-mbp-2: ~/lisp/asdf $ find . -name '*.lisp' -exec fgrep -iq SYSTEM-INPUT-FILES {} \; -print rpg@rpg-mbp-2: ~/lisp/asdf $ Similarly, after loading 3.3.4 into SBCL, I see this: CL-USER(1): (apropos '#:system-input-files)   CL-USER(2): Similarly on Lispworks: ``` CL-USER 3 > (load "/Users/rpg/lisp/asdf/build/asdf.lisp") ; Loading text file /Users/rpg/lisp/asdf/build/asdf.lisp P"/Users/rpg/lisp/asdf/build/asdf.lisp" CL-USER 4 > (apropos '#:system-input-files) CL-USER 5 > ``` I just tried (require :asdf) on Lispworks, and still no system-input-files. I simply have no idea where this is coming from. Please send a minimum working example for Lispworks.