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