mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

In compiler-debugger, do not muffle errors because they might be caused by user handlers. Ideally internal errors should have been already muffled by handle-compiler-internal-error

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 16:31:06 +01:00
parent d3a6055309
commit e368e4279b
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmputil.lsp
View file

@ -122,8 +122,10 @@
`(do-compilation-unit #'(lambda () ,@body) ,@options))
(defun compiler-debugger (condition old-hook)
#+(or)
(when *compiler-break-enable*
(si::default-debugger condition))
(si::default-debugger condition)
(abort))
(defmacro with-compiler-env ((compiler-conditions) &body body)

2
src/new-cmp/cmputil.lsp
View file

@ -115,8 +115,10 @@
`(do-compilation-unit #'(lambda () ,@body) ,@options))
(defun compiler-debugger (condition old-hook)
#+(or)
(when *compiler-break-enable*
(si::default-debugger condition))
(si::default-debugger condition)
(abort))
(defmacro with-compiler-env ((compiler-conditions) &body body)