asdf auto module

auto-module.lisp

;; Written by me in 2018, recovered from https://github.com/sjl/rosalind/blob/ef6194d94c8fe85b53fd0a7811f7ba85c4809bb0/rosalind.asd#L1-L9

(defclass auto-module (module) ())

(defmethod component-children ((self auto-module))
  (mapcar (lambda (p) (make-instance 'cl-source-file :type "lisp"
                        :pathname p
                        :name (pathname-name p)
                        :parent (component-parent self)))
          (directory-files (component-pathname self)
                           (make-pathname :directory nil :name *wild* :type "lisp"))))