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

[runlisp] / runlisp-base.conf

diff --git a/runlisp-base.conf b/runlisp-base.conf
index b11f24851b55d0d6063fa2c15740a01ff3b04a48..297fe6168df68396260ad37d34c1e9515ff425c5 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}" |
 run-script =
        ${command}
                $?@image{-core "${image-path}" -eval "${image-restore}" |

-                        -batch -noinit -nositeinit -quiet
+                        -batch -noinit -quiet

                                 -eval "(progn
                                          (setf ext:*require-verbose* nil)
                                 -eval "(progn
                                          (setf ext:*require-verbose* nil)

-                                         ${run-script-prelude})"}
+                                         ${run-script-prelude}
+                                         ${clear-cl-user})"}

                -load "${@script}" -eval "(ext:quit)" --
 
 dump-image =
                -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)"
                -eval "(ext:save-lisp \"${@image-new|q}\"
                                      :batch-mode t :print-herald nil
                                      :site-init nil :load-init-file nil)"