Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

#45 Consider adding files-in-system?

open
Daniel Barlow
asdf (12)
5
2006-11-15
2006-11-15
No

I'm switching over to ASDF from MAKE. I miss the files-in-system function... Consider adding it & make it external?

Here is a quick hack:

(defun files-in-system (system)
(remove-duplicates
(loop for (op . component) in (traverse (make-instance 'load-op)
(find-system system))
when (and (typep component 'component)
(stringp (pathname-name (component-pathname component))))
collect (component-pathname component)) :test #'equalp))

Discussion