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