From 1cce877b4c682e721ce3f18add162a1362c3ee8a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 20 Jul 1993 10:59:22 +0000
Subject: [PATCH] Bind *break-on-signals* to NIL when we call BREAK in SIGNAL
 so that the debugger doesn't recurse on itself. ..

---
 code/error.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/code/error.lisp b/code/error.lisp
index 730df0739..2acb9c654 100644
--- a/code/error.lisp
+++ b/code/error.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.25 1993/07/03 17:08:32 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.26 1993/07/20 10:59:22 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -518,8 +518,9 @@
 					'simple-condition 'signal))
         (*handler-clusters* *handler-clusters*))
     (when (typep condition *break-on-signals*)
-      (break "~A~%Break entered because of *break-on-signals*."
-	     condition))
+      (let ((*break-on-signals* nil))
+	(break "~A~%Break entered because of *break-on-signals* (now NIL.)"
+	       condition)))
     (loop
       (unless *handler-clusters* (return))
       (let ((cluster (pop *handler-clusters*)))
-- 
GitLab