Commit b3de9354 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix #157: (directory "**/") only returns directories

parent 7a15c464

src/code/filesys.lisp

+1 −5
Original line number Diff line number Diff line
@@ -1122,11 +1122,7 @@ optionally keeping some of the most recent old versions." 
    (let ((results nil))

      (enumerate-search-list

	  (pathname (merge-pathnames pathname

				     (make-pathname :name :wild

						    :type :wild

						    :version :wild

						    :defaults *default-pathname-defaults*)

				     :wild))

				     *default-pathname-defaults*))

	(enumerate-matches (name pathname nil :follow-links follow-links)

	  (when (or all

		    (let ((slash (position #\/ name :from-end t)))

tests/pathname.lisp

+11 −1
Original line number Diff line number Diff line
@@ -73,3 +73,13 @@ 
			       :name nil :type nil)

		(parse-namestring "ASDFTEST:system2;module4;"))))







(define-test directory.dirs

  (let ((files (directory "src/assembly/**/")))

    ;; Verify that we only returned directories

    (loop for f in files

	  for name = (pathname-name f)

	  and type = (pathname-type f)

	  do

	     (assert-true (and (null name) (null type)) f))))