From e368e4279b451c13f9d1f6f458c8aaebe8adfa25 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Feb 2010 16:31:06 +0100 Subject: [PATCH] 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 --- src/cmp/cmputil.lsp | 2 ++ src/new-cmp/cmputil.lsp | 2 ++ 2 files changed, 4 insertions(+) diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp index 6d0207fdb..8d0959327 100644 --- a/src/cmp/cmputil.lsp +++ b/src/cmp/cmputil.lsp @@ -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) diff --git a/src/new-cmp/cmputil.lsp b/src/new-cmp/cmputil.lsp index 838d32ff1..a1388edcb 100644 --- a/src/new-cmp/cmputil.lsp +++ b/src/new-cmp/cmputil.lsp @@ -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)