0.7.6.1:

[sbcl.git] / src / runtime / runtime.c

diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c
index cfc7cd1..039dac6 100644 (file)
--- a/src/runtime/runtime.c
+++ b/src/runtime/runtime.c
@@ -220,7 +220,7 @@ main(int argc, char *argv[], char *envp[])
 
     if (!noinform) {
        printf(
 
     if (!noinform) {
        printf(

-"This is SBCL " SBCL_VERSION_STRING ", an implementation of ANSI Common Lisp.\n\
+"This is SBCL %s, an implementation of ANSI Common Lisp.\n\

 \n\
 SBCL is derived from the CMU CL system created at Carnegie Mellon University.\n\
 Besides software and documentation originally created at Carnegie Mellon\n\
 \n\
 SBCL is derived from the CMU CL system created at Carnegie Mellon University.\n\
 Besides software and documentation originally created at Carnegie Mellon\n\

@@ -238,7 +238,7 @@ used under BSD-style licenses allowing copying only under certain conditions.\n\
 See the COPYING file in the distribution for more information.\n\
 \n\
 More information about SBCL is available at <http://sbcl.sourceforge.net/>.\n\
 See the COPYING file in the distribution for more information.\n\
 \n\
 More information about SBCL is available at <http://sbcl.sourceforge.net/>.\n\

-");
+", SBCL_VERSION_STRING);

        fflush(stdout);
     }
 
        fflush(stdout);
     }
 

@@ -254,11 +254,6 @@ More information about SBCL is available at <http://sbcl.sourceforge.net/>.\n\
 
     set_lossage_handler(monitor_or_something);
 
 
     set_lossage_handler(monitor_or_something);
 

-#if 0
-    os_init();
-    gc_init();
-    validate();
-#endif

     globals_init();
 
     initial_function = load_core_file(core);
     globals_init();
 
     initial_function = load_core_file(core);

@@ -276,9 +271,6 @@ More information about SBCL is available at <http://sbcl.sourceforge.net/>.\n\
 #ifdef BINDING_STACK_POINTER
     SetSymbolValue(BINDING_STACK_POINTER, BINDING_STACK_START);
 #endif
 #ifdef BINDING_STACK_POINTER
     SetSymbolValue(BINDING_STACK_POINTER, BINDING_STACK_START);
 #endif

-#if defined INTERNAL_GC_TRIGGER && !defined __i386__
-    SetSymbolValue(INTERNAL_GC_TRIGGER, make_fixnum(-1));
-#endif

 
     interrupt_init();
 
 
     interrupt_init();