mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Unix signals reported as continuable errors

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-09-21 09:18:22 +02:00
parent c2661518a9
commit bd4f3597ed
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/unixint.d
View file

@ -96,6 +96,7 @@
#endif
#define ECL_DEFINE_FENV_CONSTANTS
#include <ecl/internal.h>
#include <ecl/ecl-inl.h>
static struct {
int code;
@ -362,15 +363,18 @@ unblock_signal(int signal)
}
#endif
ecl_def_ct_base_string(str_ignore_signal,"Ignore signal ~:*~D",19,static,const);
static void
handle_signal_now(cl_object signal_code)
{
switch (type_of(signal_code)) {
case t_fixnum:
cl_error(3, @'ext::unix-signal-received', @':code', signal_code);
cl_cerror(4, str_ignore_signal, @'ext::unix-signal-received',
@':code', signal_code);
break;
case t_symbol:
cl_error(1, signal_code);
cl_cerror(2, str_ignore_signal, signal_code);
break;
case t_cfun:
case t_cfunfixed: