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 (file)
--- 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)"