X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=distclean.sh;h=5d46a9ffc8f428f7d1ef2876d8da72bc2cb4ade1;hb=b6094d5640a59f36d2f727df08b271c422aa9e1c;hp=33034f9f3fba83159a1b5d072783fb4c5b3e1694;hpb=8dc064d2296902f01afd9107e89a81146e3771fe;p=sbcl.git

diff --git a/distclean.sh b/distclean.sh
index 33034f9..5d46a9f 100644
--- a/distclean.sh
+++ b/distclean.sh
@@ -12,5 +12,15 @@ rm -rf doc/cmucl
 # miscellaneous other customizations which shouldn't be propagated
 rm -rf customize-target-features.lisp
 
+# Since the CVS/ subdirectories on my (WHN) machine have CVS/Root
+# containing
+#    :ext:wnewman@cvs.sbcl.sourceforge.net:/cvsroot/sbcl
+# they're not useful for anyone else, so blow them away. (And even 
+# if we could set them up to refer to CVS in a way that someone else 
+# could use, perhaps referring to SourceForge anoncvs, what'd be the 
+# point? I'd expect a comfortable majority of those who want to do 
+# CVS operations would be inclined to start with "cvs co" anyway.)
+find . \( -type d -a -name CVS \) -print | xargs rm -r
+
 # Fall through to ordinary cleanup.
 sh clean.sh