0.8.6.12:
authorKevin Rosenberg <kevin@rosenberg.net>
Sat, 29 Nov 2003 05:38:43 +0000 (05:38 +0000)
committerKevin Rosenberg <kevin@rosenberg.net>
Sat, 29 Nov 2003 05:38:43 +0000 (05:38 +0000)
* contrib/sb-aclrepl/repl.lisp: Support recent sb-thread changes.
repl.lisp now compiles, but I have not tested sb-aclrepl with
multiple listeners.

contrib/sb-aclrepl/repl.lisp
version.lisp-expr

index e31f696..defbc32 100644 (file)
        (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*
index f4e83db..ebe112e 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.6.11"
+"0.8.6.12"