From bd4f3597ed823370ae3e8ac12e69ab8c7ca86e62 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Tue, 21 Sep 2010 09:18:22 +0200
Subject: [PATCH] Unix signals reported as continuable errors

---
 src/c/unixint.d | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/c/unixint.d b/src/c/unixint.d
index d1c7b7e5a..2b750eebd 100644
--- a/src/c/unixint.d
+++ b/src/c/unixint.d
@@ -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: