#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();