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

diff --git a/distclean.sh b/distclean.sh
index 33034f9..41ed1b6 100644
--- a/distclean.sh
+++ b/distclean.sh
@@ -1,6 +1,7 @@
 #!/bin/sh
+set -e
 
-# a superset of clean.sh, cleaning up not only automatically 
+# a superset of clean.sh, cleaning up not only automatically
 # generated files but other things (e.g. customization files)
 # which shouldn't be in the distribution
 
@@ -12,5 +13,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