X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=0e33618d699a43b9bb43bf3cef4d247efd062a99;hb=2db3b6b4cb740d5b6512459c223859f747807b09;hp=3fa6b09fa54cce81b34190a2cefe308765e468bd;hpb=650499e7ae935d53cc1e0de6fc73e10dca5be253;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 3fa6b09..0e33618 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -814,8 +814,7 @@ reset to ~S."
 	(*read-suppress* nil))
     (unless (typep *debug-condition* 'step-condition)
       (clear-input *debug-io*))
-    #!-mp (debug-loop)
-    #!+mp (sb!mp:without-scheduling (debug-loop))))
+    (debug-loop)))
 
 ;;;; DEBUG-LOOP