X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.c;h=efefc8e11abf05a733a9f0f55317d9a776fa9ca9;hb=b767eae48831153473226b985511c8f7a3ef98c5;hp=c4251cb122e892e25c45c22afe78afb9e2caa340;hpb=d7f6139a91d7d9b0667a597584ae306d958bb2f4;p=sbcl.git
diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c
index c4251cb..efefc8e 100644
--- a/src/runtime/runtime.c
+++ b/src/runtime/runtime.c
@@ -48,13 +48,11 @@
#endif
/* SIGINT handler that invokes the monitor (for when Lisp isn't up to it) */
-
static void
sigint_handler(int signal, siginfo_t *info, void *void_context)
{
- printf("\nSIGINT hit at 0x%08lX\n",
- (unsigned long) *os_context_pc_addr(void_context));
- ldb_monitor();
+ lose("\nSIGINT hit at 0x%08lX\n",
+ (unsigned long) *os_context_pc_addr(void_context));
}
/* (This is not static, because we want to be able to call it from
@@ -245,7 +243,7 @@ More information on SBCL is available at .
define_var("nil", NIL, 1);
define_var("t", T, 1);
- set_lossage_handler(ldb_monitor);
+ set_lossage_handler(monitor_or_something);
#if 0
os_init();
@@ -264,16 +262,6 @@ More information on SBCL is available at .
#if defined GENCGC
gencgc_pickup_dynamic();
#else
-#if defined WANT_CGC && defined X86_CGC_ACTIVE_P
- {
- extern int use_cgc_p;
- lispobj x = SymbolValue(X86_CGC_ACTIVE_P);
- if (x != type_UnboundMarker && x != NIL) {
- /* Enable allocator. */
- use_cgc_p = 1;
- }
- }
-#endif
#endif
#ifdef BINDING_STACK_POINTER