Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.1587
diff -u -p -r1.1587 ChangeLog
--- ChangeLog	23 Nov 2008 22:11:36 -0000	1.1587
+++ ChangeLog	30 Nov 2008 22:07:52 -0000
@@ -1,3 +1,11 @@
+2008-11-30  Gábor Melis  <mega@retes.hu>
+
+	* slime.el (slime-compute-modeline-connection-state): Print the
+	number of debugged requests if non-zero.
+	(slime-connection-state-as-string): Removed unused branches.
+	(slime-compute-connection-state): Removed :debugged branch making
+	most likely return :connected instead.
+
 2008-11-23  Helmut Eller  <heller@common-lisp.net>
 
 	`q' in temp buffers should only delete the window if it was newly
Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.1065
diff -u -p -r1.1065 slime.el
--- slime.el	23 Nov 2008 22:11:36 -0000	1.1065
+++ slime.el	30 Nov 2008 22:08:07 -0000
@@ -479,12 +479,17 @@ The string is periodically updated by an
         (slime-connection-name conn))))
 
 (defun slime-compute-modeline-connection-state ()
-  (let ((new-state (slime-compute-connection-state (slime-current-connection))))
+  (let* ((conn (slime-current-connection))
+         (new-state (slime-compute-connection-state conn)))
     (if (eq new-state :connected)
-        (let ((n (length (slime-rex-continuations))))
-          (if (= n 0)
-              nil
-            n))
+        (let ((n (length (slime-rex-continuations)))
+              (m (length (sldb-debugged-continuations conn))))
+          (cond ((= n 0)
+                 nil)
+                ((= m 0)
+                 n)
+                (t
+                 (format "%s/%s" (- n m) m))))
       (slime-connection-state-as-string new-state))))
 
 (defun slime-compute-modeline-string (conn state pkg)
@@ -1929,21 +1934,17 @@ If PROCESS is not specified, `slime-conn
 (defun slime-compute-connection-state (conn)
   (cond ((null conn) :disconnected) 
         ((slime-stale-connection-p conn) :stale)
-        ((slime-debugged-connection-p conn) :debugged)
-        ((and (slime-use-sigint-for-interrupt conn) 
+        ((and (slime-use-sigint-for-interrupt conn)
               (slime-busy-p conn)) :busy)
         ((eq slime-buffer-connection conn) :local)
         (t :connected)))
 
 (defun slime-connection-state-as-string (state)
   (case state
-    (:connected       "")
     (:disconnected    "not connected")
     (:busy            "busy..")
-    (:debugged        "debugged..")
     (:stale           "stale")
-    (:local           "local")
-    ))
+    (:local           "local")))
 
 ;;; Connection-local variables: