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)