X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fwhitespacely-canonical-filenames;h=54e65dedaabf914990e23616225ab1ed6d71e83c;hb=dc981e6c25bbc2abd48c8d48a424c6bd55e905bb;hp=b8587958d5e3b30f30a10c473f0485fd43d740b9;hpb=1af3faa2b79125b774c2182cab841ed7ee555bed;p=sbcl.git

diff --git a/tools-for-build/whitespacely-canonical-filenames b/tools-for-build/whitespacely-canonical-filenames
index b858795..54e65de 100755
--- a/tools-for-build/whitespacely-canonical-filenames
+++ b/tools-for-build/whitespacely-canonical-filenames
@@ -11,9 +11,15 @@
 # conservative syntax used in SBCL sources)
 source_extensions='.lisp .lisp-expr .c .h'
 # other candidates:
-#   .sh
+#   .sh: if ./make.sh is altered, Bad Things happen
 #   ?
 
 for source_extension in $source_extensions; do 
-    find . -name '*'$source_extension -print
+    find . \( \
+            -name _darcs -o \
+            -name '{arch}' -o \
+            -name CVS -o \
+            -name .hg -o \
+            -name .svn \) -type d -prune -o \
+           -name '*'$source_extension -print
 done