mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

<signal.h> has to be included so that SIGIOT may be restored before aborting.

Browse source 
A temporary error handler is also installed, which simply exits.
This commit is contained in:
jjgarcia 2002-09-16 12:20:24 +00:00
parent 23ee878e59
commit ac940d1cf2
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/error.d
View file

@ -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);
}