Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: d3a6055)
In compiler-debugger, do not muffle errors because they might be caused by user handl...
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 15:31:06 +0000 (16:31 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 15:31:06 +0000 (16:31 +0100)
src/cmp/cmputil.lsp patch | blob | blame | history
src/new-cmp/cmputil.lsp patch | blob | blame | history

diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp
index 6d0207f..8d09593 100644 (file)
--- 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 838d32f..a1388ed 100644 (file)
--- 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)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)