From 5fe7c47dc2ae726550b1a4d117d7a24b61915adf Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 15 Apr 2004 14:12:23 +0000
Subject: [PATCH] Remove some junk that was inadvertently checked in.

---
 tools/build-world.sh | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/tools/build-world.sh b/tools/build-world.sh
index 19f01c7df..76ff688be 100755
--- a/tools/build-world.sh
+++ b/tools/build-world.sh
@@ -42,23 +42,11 @@ $LISP "$@" -noinit -nositeinit <<EOF
 (load "target:tools/setup" :if-source-newer :load-source)
 (comf "target:tools/setup" :load t)
 
-(when (probe-file "home:.cmucl-fcn.lisp")
-  (compile-file "home:.cmucl-fcn" :output-file "/tmp/cmucl-fcn.fasl" :load t)
-  (pushnew #'rlt-before-gc-hook ext:*before-gc-hooks*)
-  (setf ext:*after-gc-hooks*
-	      (append ext:*after-gc-hooks* (list #'rlt-after-gc-hook))))
-
 (setq *gc-verbose* nil)
 (setq *interactive* nil)
 (setq debug:*debug-print-level* nil)
 (setq debug:*debug-print-length* nil)
 
-#+nil
-(when (probe-file "verify-hash.lisp")
-  (compile-file "verify-hash" :output-file "/tmp/verify-hash.fasl" :load t)
-  (setf ext:*after-gc-hooks*
-        (append ext:*after-gc-hooks* (list #'check-all-hashes))))
-
 (load "target:tools/worldcom")
 #-(or no-compiler runtime) (load "target:tools/comcom")
 ;; Compile at least new-genesis, so that genesis doesn't take ages
-- 
GitLab