From d733a6f4dc7caee6ed218add8ce44501d372ac7c Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Fri, 15 Jan 2010 13:12:14 -0500
Subject: [PATCH] Tweak recurse-directory in an attempt to avoid work.

---
 asdf.lisp | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index af7e7b7d..40984366 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -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
-- 
GitLab