0.9.4.3:

[sbcl.git] / tests / debug.impure.lisp

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 3a1397a..ecf1521 100644 (file)
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -376,11 +376,15 @@
                                             (incf error-counter)))
                      :normal-exit))))))))
 
+(enable-debugger)
+
 (test-inifinite-error-protection)
 
 #+sb-thread
 (let ((thread (sb-thread:make-thread #'test-inifinite-error-protection)))
   (loop while (sb-thread:thread-alive-p thread)))
 
+(disable-debugger)
+
 ;;; success
 (quit :unix-status 104)