Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
d733a6f4
Commit
d733a6f4
authored
Jan 15, 2010
by
Francois-Rene Rideau
Browse files
Tweak recurse-directory in an attempt to avoid work.
parent
e8a3285f
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
d733a6f4
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment