From ac940d1cf2170791c2e632e24dd6583fa08c40a4 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 16 Sep 2002 12:20:24 +0000
Subject: [PATCH] <signal.h> has to be included so that SIGIOT may be restored
 before aborting. A temporary error handler is also installed, which simply
 exits.

---
 src/c/error.d | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/c/error.d b/src/c/error.d
index eb95e62a9..22a6f3259 100644
--- a/src/c/error.d
+++ b/src/c/error.d
@@ -16,6 +16,7 @@
 
 
 #include "ecl.h"
+#include <signal.h>
 
 void
 cs_overflow(void)
@@ -270,6 +271,7 @@ not_a_variable(cl_object obj)
 void
 init_error(void)
 {
+	MF(@'si::universal-error-handler', universal_error_handler, Cnil);
 	null_string = make_constant_string("");
 	register_root(&null_string);
 }