X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Frepl.lisp;h=defbc329a1df98c092bd2f9179fbf2c4313c4bc0;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=e31f696ac07dc74c09cd153c99912bbf598d180e;hpb=dfae0cd85d45a30d8687d6a366b608d10350872f;p=sbcl.git

diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index e31f696..defbc32 100644
--- a/contrib/sb-aclrepl/repl.lisp
+++ b/contrib/sb-aclrepl/repl.lisp
@@ -777,12 +777,7 @@
 	(frame-number (when (and (plusp *break-level*)
 				 sb-debug::*current-frame*)
 			(sb-di::frame-number sb-debug::*current-frame*))))
-    #+sb-thread
-    (let ((lock sb-thread::*session-lock*))
-      (sb-thread::get-foreground)
-      (let ((stopped-threads (sb-thread::waitqueue-data lock)))
-	(when stopped-threads
-	  (format stream "~{~&Thread ~A suspended~}~%" stopped-threads))))
+    (sb-thread::get-foreground)
     (fresh-line stream)
     (if (functionp *prompt*)
 	(write-string (funcall *prompt*