Skip to content
Snippets Groups Projects
Commit 5fe7c47d authored by rtoy's avatar rtoy
Browse files

Remove some junk that was inadvertently checked in.

parent 2e51cd52
No related branches found
No related tags found
No related merge requests found
...@@ -42,23 +42,11 @@ $LISP "$@" -noinit -nositeinit <<EOF ...@@ -42,23 +42,11 @@ $LISP "$@" -noinit -nositeinit <<EOF
(load "target:tools/setup" :if-source-newer :load-source) (load "target:tools/setup" :if-source-newer :load-source)
(comf "target:tools/setup" :load t) (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 *gc-verbose* nil)
(setq *interactive* nil) (setq *interactive* nil)
(setq debug:*debug-print-level* nil) (setq debug:*debug-print-level* nil)
(setq debug:*debug-print-length* 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") (load "target:tools/worldcom")
#-(or no-compiler runtime) (load "target:tools/comcom") #-(or no-compiler runtime) (load "target:tools/comcom")
;; Compile at least new-genesis, so that genesis doesn't take ages ;; Compile at least new-genesis, so that genesis doesn't take ages
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment