X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fdebug.impure.lisp;h=ecf15216ca5444a6db8a8a296bd1ef6fab1a9894;hb=c07c56242a2a7e7949dad974331d5257d44fe937;hp=3a1397a1a4daa61ed77cc6dad45a292f479642e3;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 3a1397a..ecf1521 100644
--- 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)