Skip to content
Snippets Groups Projects
Commit 8351d0f0 authored by pmai's avatar pmai
Browse files

This change causes the *batch-mode* flag to be reset when saving a

core.  If the newly introduced :batch-mode argument to save-lisp is
supplied and is true, then the *batch-mode* flag is set to true,
otherwise it is set to false, before saving the core.  This should
prevent ugly surprises by newbies using -batch when dumping cores.
parent ed866455
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.42 2001/12/08 18:42:39 pmai Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.43 2002/01/18 17:58:15 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -110,7 +110,8 @@
(load-init-file t)
(site-init "library:site-init")
(print-herald t)
(process-command-line t))
(process-command-line t)
(batch-mode nil))
"Saves a CMU Common Lisp core image in the file of the specified name. The
following keywords are defined:
......@@ -143,7 +144,17 @@
library:site-init. No error if this does not exist.
:print-herald
If true (the default), print out the lisp system herald when starting."
If true (the default), print out the lisp system herald when starting.
:process-command-line
If true (the default), process command-line switches via the normal
mechanisms, otherwise ignore all switches (except those processed by the
C startup code).
:batch-mode
If nil (the default), then the presence of the -batch command-line
switch will invoke batch-mode processing. If true, the produced core
will always be in batch-mode, regardless of any command-line switches."
#+mp (mp::shutdown-multi-processing)
(when (fboundp 'eval:flush-interpreted-function-cache)
......@@ -155,6 +166,7 @@
:environment-name environment-name)
#-gencgc (gc) #+gencgc (gc :full t))
(dolist (f *before-save-initializations*) (funcall f))
(setq ext:*batch-mode* (if batch-mode t nil))
(labels
((%restart-lisp ()
(with-simple-restart (abort "Skip remaining initializations.")
......
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