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

diff --git a/clean.sh b/clean.sh
index 7c6756c..9eaa20e 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.
@@ -65,27 +67,28 @@ done
 #   *.x86f, *.axpf, *.lbytef, *.fasl
 #     typical extensions for fasl files
 find . \( \
-	-type l -or \
-	-name '*~' -or \
-	-name '#*#' -or \
-	-name '?*.x86f' -or \
-	-name '?*.axpf' -or \
-	-name '?*.lbytef' -or \
-	-name '?*.fasl' -or \
-	-name 'core' -or \
-	-name '?*.core' -or \
-	-name '*.map' -or \
-	-name '*.nm' -or \
-	-name '*.host-obj' -or \
-	-name '*.lisp-obj' -or \
-	-name '*.target-obj' -or \
-	-name '*.lib' -or \
-	-name '*.tmp' -or \
-	-name '*.o' -or \
-	-name 'sbcl' -or \
-	-name 'sbcl.h' -or \
-	-name 'depend' -or \
-	-name '*.htm' -or \
-	-name '*.html' -or \
-	-name 'TAGS' -or \
+	-type l -o \
+	-name '*~' -o \
+	-name '#*#' -o \
+	-name '.#*' -o \
+	-name '?*.x86f' -o \
+	-name '?*.axpf' -o \
+	-name '?*.lbytef' -o \
+	-name '?*.fasl' -o \
+	-name 'core' -o \
+	-name '?*.core' -o \
+	-name '*.map' -o \
+	-name '*.nm' -o \
+	-name '*.host-obj' -o \
+	-name '*.lisp-obj' -o \
+	-name '*.target-obj' -o \
+	-name '*.lib' -o \
+	-name '*.tmp' -o \
+	-name '*.o' -o \
+	-name 'sbcl' -o \
+	-name 'sbcl.h' -o \
+	-name 'depend' -o \
+	-name '*.htm' -o \
+	-name '*.html' -o \
+	-name 'TAGS' -o \
 	-name 'local-target-features.lisp-expr' \) -print | xargs rm -f