X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=8d0b01b7a7fa804cb37a454165eda479c63be9f1;hb=731da68c7e3b7f2c4bc310aa75fc75f5aead24d2;hp=92386019ed843ad01b6b3282d9e05c1c79a2cd8f;hpb=6208e9ee15dbdea405f53d70046f034fc3e0777b;p=sbcl.git

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index 9238601..8d0b01b 100644
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
@@ -28,6 +28,7 @@
 #include "genesis/static-symbols.h"
 #include "genesis/vector.h"
 #include "thread.h"
+#include "monitor.h"
 
 /* the way that we shut down the system on a fatal error */
 
@@ -37,10 +38,14 @@ default_lossage_handler(void)
     exit(1);
 }
 static void (*lossage_handler)(void) = default_lossage_handler;
-void
-set_lossage_handler(void handler(void))
+
+void enable_lossage_handler(void)
+{
+    lossage_handler = monitor_or_something;
+}
+void disable_lossage_handler(void)
 {
-    lossage_handler = handler;
+    lossage_handler = default_lossage_handler;
 }
 
 void