Commit 1dfd5f43 authored by Eric Timmons's avatar Eric Timmons
Browse files

ECL fix

Apparently *wild-file-for-directory* on ECL does not return subdirs (IMO the
expected behavior), but it does on at least SBCL and CCL.
parent 1a547fc3
Loading
Loading
Loading
Loading
+6 −2
Original line number Diff line number Diff line
@@ -168,8 +168,12 @@ the explicit children, then find and create the implicit components."
  (let ((explicit-children (call-next-method))
        (implicit-children nil)
        (component-pathname (asdf:component-pathname parent)))
    (dolist (item (uiop:directory* (merge-pathnames uiop:*wild-file-for-directory*
    (dolist (item (remove-duplicates
                   (append (uiop:directory* (merge-pathnames uiop:*wild-file-for-directory*
                                                             component-pathname))
                           (uiop:directory* (merge-pathnames uiop:*wild-directory*
                                                             component-pathname)))
                   :test #'uiop:pathname-equal))
      (if (uiop:file-pathname-p item)
          (let* ((file-name (file-namestring item))
                 (wrapper (pathname-to-wrapper parent file-name))