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 @@
;;; 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
;;; debugger.
......@@ -247,6 +247,7 @@
(t
(when number
(format t "~&~S: " (di:frame-number frame)))
(mach:unix-sigsetmask 0)
(when (>= verbosity 2)
(let ((loc (di:frame-code-location frame)))
(*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