From c5f1424a6292dcfb7f6800b04a256e486143c43c Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 26 Nov 1990 18:25:58 +0000
Subject: [PATCH] The C support code now picks off internal errors, so we don't
 have to.

---
 code/signal.lisp | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/code/signal.lisp b/code/signal.lisp
index a21be2e5f..95abd9e91 100644
--- a/code/signal.lisp
+++ b/code/signal.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.9 1990/11/26 15:54:58 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.10 1990/11/26 18:25:58 wlott Exp $
 ;;;
 ;;; Code for handling UNIX signals.
 ;;; 
@@ -231,7 +231,7 @@
 
 (define-signal-handler sigint-handler "Interrupted" break)
 (define-signal-handler sigill-handler "Illegal Instruction")
-(define-signal-handler sigtrap-handler "SIGTRAP")
+(define-signal-handler sigtrap-handler "Breakpoint/Trap")
 (define-signal-handler sigiot-handler "SIGIOT")
 (define-signal-handler sigemt-handler "SIGEMT")
 (define-signal-handler sigbus-handler "Bus Error")
@@ -249,12 +249,8 @@
   (unless (member "-monitor" lisp::lisp-command-line-list :test #'string=)
     (enable-interrupt :sigint #'sigint-handler))
   (enable-interrupt :sigquit #'sigquit-handler)
-  (enable-interrupt :sigill
-		    #+sparc #'kernel::internal-error
-		    #-sparc #'sigill-handler)
-  (enable-interrupt :sigtrap
-		    #+pmax #'kernel::internal-error
-		    #-pmax #'sigtrap-handler)
+  (enable-interrupt :sigill #'sigill-handler)
+  (enable-interrupt :sigtrap #'sigtrap-handler)
   (enable-interrupt :sigiot #'sigiot-handler)
   (enable-interrupt :sigemt #'sigemt-handler)
   (enable-interrupt :sigfpe #'vm:sigfpe-handler)
-- 
GitLab