Skip to content
Snippets Groups Projects
Commit db09aced authored by wlott's avatar wlott
Browse files

Added a call to mach:unix-sigsetmask at the start of invoke-debugger.

parent 842fc337
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.13 1990/12/15 14:07:00 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.14 1991/01/31 02:08:21 wlott Exp $
;;; ;;;
;;; CMU Common Lisp Debugger. This is a very basic command-line oriented ;;; CMU Common Lisp Debugger. This is a very basic command-line oriented
;;; debugger. ;;; debugger.
...@@ -247,6 +247,7 @@ ...@@ -247,6 +247,7 @@
(t (t
(when number (when number
(format t "~&~S: " (di:frame-number frame))) (format t "~&~S: " (di:frame-number frame)))
(mach:unix-sigsetmask 0)
(when (>= verbosity 2) (when (>= verbosity 2)
(let ((loc (di:frame-code-location frame))) (let ((loc (di:frame-code-location frame)))
(*debug-abort* (find-restart 'abort)) (*debug-abort* (find-restart 'abort))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment