From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 13 Aug 2021 21:29:16 +0000 (+0100)
Subject: runlisp-base.conf: Don't inhibit CMU CL's site-wide initialization file.
X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/commitdiff_plain/979d91ebb366310a71913d8023129c93ad2470fc

runlisp-base.conf: Don't inhibit CMU CL's site-wide initialization file.

This script contains definitions for search paths used, for example, by
`require'.  Unfortunately, it also defines crufty `demo' and `help'
symbols in the `cl-user' package, so we need to add `clear-cl-user' to
the invocation runes.
---

diff --git a/runlisp-base.conf b/runlisp-base.conf
index b11f248..297fe61 100644
--- a/runlisp-base.conf
+++ b/runlisp-base.conf
@@ -253,15 +253,16 @@ image-file = ${@name}+asdf.core
 run-script =
 	${command}
 		$?@image{-core "${image-path}" -eval "${image-restore}" |
-			 -batch -noinit -nositeinit -quiet
+			 -batch -noinit -quiet
 				 -eval "(progn
 					  (setf ext:*require-verbose* nil)
-					  ${run-script-prelude})"}
+					  ${run-script-prelude}
+					  ${clear-cl-user})"}
 		-load "${@script}" -eval "(ext:quit)" --
 
 dump-image =
-	${command} -batch -noinit -nositeinit -quiet
-		-eval "${dump-image-prelude}"
+	${command} -batch -noinit -quiet
+		-eval "(progn ${dump-image-prelude} ${clear-cl-user})"
 		-eval "(ext:save-lisp \"${@image-new|q}\"
 				      :batch-mode t :print-herald nil
 				      :site-init nil :load-init-file nil)"