X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=8308012d8f324e9a1a4b0c5c2f7d09be8bea2dc8;hb=447477e72bd4fe54e678a28bdcc4a2802797d6ed;hp=524233b3ea5a6b91db1beb5178eaca7a39e965ec;hpb=88c9061f3e2a3d3d8d2f0003aaa6dbabac40b20f;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 524233b..8308012 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -119,14 +119,12 @@
 (define-signal-handler sigint-handler "interrupted" sigint-%break)
 (define-signal-handler sigill-handler "illegal instruction")
 (define-signal-handler sigtrap-handler "breakpoint/trap")
-(define-signal-handler sigiot-handler "SIGIOT")
 #!-linux
 (define-signal-handler sigemt-handler "SIGEMT")
 (define-signal-handler sigbus-handler "bus error")
 (define-signal-handler sigsegv-handler "segmentation violation")
 #!-linux
 (define-signal-handler sigsys-handler "bad argument to a system call")
-(define-signal-handler sigpipe-handler "SIGPIPE")
 
 (defun sigalrm-handler (signal info context)
   (declare (ignore signal info context))
@@ -138,6 +136,11 @@
   (sb!thread::terminate-session)
   (sb!ext:quit))
 
+;; Also known as SIGABRT.
+(defun sigiot-handler (signal code context)
+  (declare (ignore signal code context))
+  (sb!impl::%halt))
+
 (defun sb!kernel:signal-cold-init-or-reinit ()
   #!+sb-doc
   "Enable all the default signals that Lisp knows how to deal with."
@@ -153,7 +156,7 @@
   (enable-interrupt sigsegv #'sigsegv-handler)
   #!-linux
   (enable-interrupt sigsys #'sigsys-handler)
-  (enable-interrupt sigpipe #'sigpipe-handler)
+  (ignore-interrupt sigpipe)
   (enable-interrupt sigalrm #'sigalrm-handler)
   (sb!unix::reset-signal-mask)
   (values))