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 00bfa91..297fe61 100644 (file)
--- a/runlisp-base.conf
+++ b/runlisp-base.conf
@@ -111,12 +111,17 @@ dump-image-prelude =
          ${ignore-shebang}
          ${set-script-feature})
 
+;; An expression to determine the version information for the running Lisp.
+lisp-version =
+       (list (list* \'lisp
+                    (lisp-implementation-type)
+                    (multiple-value-list (lisp-implementation-version)))
+             (cons \'asdf
+                   (asdf:component-version (asdf:find-system "asdf"))))
+
 ;; Full pathname to custom image.
 image-path = ${@image-dir}/${image-file}
 
-;; Command to delete image.
-delete-image = rm -f ${image-path}
-
 ;;;--------------------------------------------------------------------------
 [sbcl]
 
@@ -248,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)"