Commit d733a6f4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak recurse-directory in an attempt to avoid work.

parent e8a3285f
Loading
Loading
Loading
Loading
+4 −8
Original line number Diff line number Diff line
@@ -2229,15 +2229,11 @@ by PATHNAME-AS-DIRECTORY."
        dir
        (concatenate 'string dir "/"))))

(defun recurse-directory (directory &optional (exclusions *default-exclusions*) undetect)
(defun recurse-directory (directory &optional (exclusions *default-exclusions*))
  (declare (ignorable exclusions))
  (let* ((f (directory (merge-pathnames
                        (if undetect
                          #P"**/*.*"
                          (progn
                            #+(or asdf sbcl) #P"**/*.asd"
                            #+xcvb #P"**/*.xcvb"))
                        directory)))
  (let* ((f (directory (merge-pathnames #P"**/*.asd" directory)
                       #+sbcl #+sbcl :resolve-symlinks nil
                       #+clisp #+clisp :circle t))
         (dirs (remove-duplicates (mapcar #'pathname-directory f) :test #'equal)))
    (loop
     :for dir :in dirs