Skip to content
Snippets Groups Projects
Commit 2b49ac1a authored by ram's avatar ram
Browse files

Bind *break-on-signals* to NIL even before doing the type test so that we don't

wedge the error system if the type is malformed or undefined.
parent 48fb4431
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.44 1993/09/03 02:37:57 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.45 1994/02/15 14:45:07 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -132,8 +132,9 @@ ...@@ -132,8 +132,9 @@
(let ((condition (coerce-to-condition datum arguments (let ((condition (coerce-to-condition datum arguments
'simple-condition 'signal)) 'simple-condition 'signal))
(*handler-clusters* *handler-clusters*)) (*handler-clusters* *handler-clusters*))
(when (typep condition *break-on-signals*) (let ((obos *break-on-signals*)
(let ((*break-on-signals* nil)) (*break-on-signals* nil))
(when (typep condition obos)
(break "~A~%Break entered because of *break-on-signals* (now NIL.)" (break "~A~%Break entered because of *break-on-signals* (now NIL.)"
condition))) condition)))
(loop (loop
......
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