#include "arch.h"
#include "gc.h"
#include "interr.h"
-#include "monitor.h"
#include "validate.h"
#include "core.h"
#include "save.h"
\n\
One option idiom which is sometimes useful interactively (e.g. when\n\
exercising a test case for a bug report) is\n\
- sbcl --sysinit /dev/null --userinit /dev/null\n\
+ sbcl --no-sysinit --no-userinit\n\
to keep SBCL from reading any initialization files at startup. And some\n\
people like to suppress the default startup message:\n\
sbcl --noinform\n\
/* As in "--help" case, I think this is expected. */
print_version();
exit(0);
+ } else if (0 == strcmp(arg, "--debug-environment")) {
+ int n = 0;
+ printf("; Commandline arguments:\n");
+ while (n < argc) {
+ printf("; %2d: \"%s\"\n", n, argv[n]);
+ ++n;
+ }
+ n = 0;
+ printf(";\n; Environment:\n");
+ while (ENVIRON[n]) {
+ printf("; %2d: \"%s\"\n", n, ENVIRON[n]);
+ ++n;
+ }
+ ++argi;
} else if (0 == strcmp(arg, "--end-runtime-options")) {
end_runtime_options = 1;
++argi;
define_var("nil", NIL, 1);
define_var("t", T, 1);
- set_lossage_handler(monitor_or_something);
+ enable_lossage_handler();
globals_init();
if (initial_function == NIL) {
lose("couldn't find initial function\n");
}
- SHOW("freeing core");
- free(core);
gc_initialize_pointers();
wos_install_interrupt_handlers(&exception_frame);
#endif
+ /* Pass core filename into Lisp */
+ SetSymbolValue(CORE_STRING, alloc_base_string(core),0);
+ SHOW("freeing core");
+ free(core);
+
/* Convert remaining argv values to something that Lisp can grok. */
SHOW("setting POSIX-ARGV symbol value");
SetSymbolValue(POSIX_ARGV, alloc_base_string_list(sbcl_argv),0);