X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=clean.sh;h=57c4fb9df732783ff8e6c5200ec0c88afed0f852;hb=b05ccdd91520249de6b465e226d3708089e541dc;hp=7c6756cf35e48911de18ebbe6fdd597388cbe753;hpb=959057baab99d4328fc386aee3fcc812f5fcb3ed;p=sbcl.git

diff --git a/clean.sh b/clean.sh
index 7c6756c..57c4fb9 100755
--- a/clean.sh
+++ b/clean.sh
@@ -23,16 +23,16 @@ rm -rf obj/* output/* doc/user-manual \
 # standard clean.sh file.)
 
 # Ask some other directories to clean themselves up.
-pwd=`pwd`
+original_pwd=`pwd`
 for d in tools-for-build; do
-    cd $d
+    cd $d > /dev/null
     # I hope the -s option is standard. At least GNU make and BSD make
     # support it. It silences make, since otherwise the output from
     # this script is just the operations done by these make's, which
     # is misleading when this script does lotso other operations too.
     # -- WHN
     make -s clean
-    cd $pwd
+    cd $original_pwd  > /dev/null
 done
 
 # Within all directories, remove things which don't look like source
@@ -57,6 +57,8 @@ done
 #     certainly not source
 #   *~, #*#, TAGS
 #     common names for editor temporary files
+#   .#*
+#     rubbish left behind by CVS updates
 #   *.htm, *.html
 #     The system doc sources are SGML, any HTML is
 #     automatically-generated output.
@@ -68,6 +70,7 @@ find . \( \
 	-type l -or \
 	-name '*~' -or \
 	-name '#*#' -or \
+	-name '.#*' -or \
 	-name '?*.x86f' -or \
 	-name '?*.axpf' -or \
 	-name '?*.lbytef' -or \