X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=53fc396941cc802333f89d930850891aaae6647f;hb=48ec282d877900caf5ea4ab42e9d87e566ce6b43;hp=09d865389a655dcd27a58acfd99895de2f72104f;hpb=64d420902d31cb87ea752f09b314e4767816a9c9;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 09d8653..53fc396 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -119,7 +119,6 @@
 (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")
@@ -133,15 +132,21 @@
   (declare (type system-area-pointer context))
   (sb!impl::run-expired-timers))
 
-(defun sigquit-handler (signal code context)
+(defun sigterm-handler (signal code context)
   (declare (ignore signal code context))
-  (throw 'toplevel-catcher nil))
+  (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."
   (enable-interrupt sigint #'sigint-handler)
-  (enable-interrupt sigquit #'sigquit-handler)
+  (enable-interrupt sigterm #'sigterm-handler)
   (enable-interrupt sigill #'sigill-handler)
   (enable-interrupt sigtrap #'sigtrap-handler)
   (enable-interrupt sigiot #'sigiot-handler)