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
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment