X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=clean.sh;h=29af85950162db5b174297f7906d35bc2f389463;hb=a37de74b393a808825585000bb5b2b92218d46c0;hp=4c055de733c19fd2d04700953d52c846df25d027;hpb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;p=sbcl.git

diff --git a/clean.sh b/clean.sh
index 4c055de..29af859 100755
--- a/clean.sh
+++ b/clean.sh
@@ -22,7 +22,20 @@ rm -rf obj/* output/* doc/user-manual \
 # distribution, we automatically clean up after it here in the 
 # standard clean.sh file.)
 
-# Within other directories, remove things which don't look like source
+# Ask some other directories to clean themselves up.
+pwd=`pwd`
+for d in tools-for-build; do
+    cd $d
+    # 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
+done
+
+# Within all directories, remove things which don't look like source
 # files. Some explanations:
 #   (symlinks)
 #     are never in the sources; they must've been created
@@ -36,15 +49,32 @@ rm -rf obj/* output/* doc/user-manual \
 #   *.htm, *.html
 #     probably machine-generated translation of DocBook (*.sgml) files
 #   core
-#     probably a core dump -- not part of the sources anyway
+#     probably a Unix core dump -- not part of the sources anyway
+#   *.o, *.lib, *.nm
+#     results of C-style linking, assembling, etc.
+#   *.core, *.map
+#     looks like SBCL SAVE-LISP-AND-DIE or GENESIS output, and
+#     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.
+#   depend
+#     made by "make depend" (or "gmake depend" or some such thing)
+#   *.x86f, *.axpf, *.lbytef, *.fasl
+#     typical extensions for fasl files
 find . \( \
 	-type l -or \
 	-name '*~' -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 \