Commit 3a155d8aad2520d05a6a407894fec087015dd169 - cafeobj

Fix misunderstood effects of *break-on-start* tswd 5 years ago

1 changed file(s) with 1 addition(s) and 4 deletion(s). Raw diff Collapse all Expand all

-4

cafeobj/cafeobj-top.lisp less more

162	162	(break-on-signals nil)
163	163	#+:sbcl (sb-ext:invoke-debugger-hook nil))
164	164	(when cafeobj-batch
165		(setf break-on-signals t)
166	165	(setf debugger-hook #'(lambda (condition hook)
167	166	(declare (ignore hook))
168	167	(let ((print-escape t))

174	173
175	174	(defun process-cafeobj-with-restart ()
176	175	(let ((quit-flag nil))
177		(if #+(and :sbcl :win32) t
178		#-(and :sbcl :win32) development-mode
	176	(if development-mode
179	177	;; in development mode, we jump into 'debugger' of the underlying system
180	178	(with-simple-restart (quit "Quit CafeOBJ.")
181	179	(loop

188	186	(let ((debugger-hook nil)
189	187	(break-on-signals nil)
190	188	#+:sbcl (sb-ext:invoke-debugger-hook nil))
191		(setf break-on-signals t)
192	189	(setf debugger-hook #'(lambda (condition hook)
193	190	(declare (ignore hook))
194	191	(let ((print-escape t))