aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog7
-rw-r--r--src/utils/command.cc6
2 files changed, 11 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index a8720025..8f0f6282 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2012-10-10 Igor Pashev <pashev.igor@gmail.com>
+ Andrey G, Grozin <A.G.Grozin@inp.nsk.su>
+ Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * utils/command.cc (build_rts_options) [sbcl_runtime]: Inhibit
+ system-wide and user-supplied initialization files.
+
2012-08-26 Gabriel Dos Reis <gdr@cs.tamu.edu>
* hyper/hthits.c (splitpage): Revert unintended change from last
diff --git a/src/utils/command.cc b/src/utils/command.cc
index 6821a3e0..58218c70 100644
--- a/src/utils/command.cc
+++ b/src/utils/command.cc
@@ -214,11 +214,13 @@ build_rts_options(Command* command, Driver driver)
break;
case sbcl_runtime:
- command->rt_args.allocate(4);
+ command->rt_args.allocate(6);
command->rt_args[0] = (char*) "--noinform";
command->rt_args[1] = (char*) "--end-runtime-options";
command->rt_args[2] = (char*) "--noprint";
- command->rt_args[3] = (char*) "--end-toplevel-options";
+ command->rt_args[3] = (char*) "--no-sysinit";
+ command->rt_args[4] = (char*) "--no-userinit";
+ command->rt_args[5] = (char*) "--end-toplevel-options";
break;
case clozure_runtime: