[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv30595

Modified Files:
	ChangeLog slime.el swank-abcl.lisp swank-backend.lisp 
	swank.lisp 
Log Message:
* swank.lisp (list-threads): Remove thread-description.  Wasn't
used anymore.
* swank-backend.lisp (thread-description, set-thread-description):
Deleted.
* swank-abcl.lisp: Update accordingly.
* slime.el (slime-update-threads-buffer, slime-thread-insert):
Update accordingly.

--- /project/slime/cvsroot/slime/ChangeLog	2009/10/31 08:22:56	1.1899
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/31 08:54:45	1.1900
@@ -1,5 +1,15 @@
 2009-10-31  Helmut Eller  <heller at common-lisp.net>
 
+	* swank.lisp (list-threads): Remove thread-description.  Wasn't
+	used anymore.
+	* swank-backend.lisp (thread-description, set-thread-description):
+	Deleted.
+	* swank-abcl.lisp: Update accordingly.
+	* slime.el (slime-update-threads-buffer, slime-thread-insert):
+	Update accordingly.
+
+2009-10-31  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-ccl.lisp (kill-thread): Don't signal conditions.
 	* swank-backend.lisp (kill-thread): Update docstring.
 
--- /project/slime/cvsroot/slime/slime.el	2009/10/28 20:52:20	1.1242
+++ /project/slime/cvsroot/slime/slime.el	2009/10/31 08:54:45	1.1243
@@ -6161,20 +6161,19 @@
       (let ((inhibit-read-only t))
         (erase-buffer)
         (loop for idx from 0 
-              for (id name status desc) in threads
-              do (slime-thread-insert idx name status desc id))
+              for (id name status) in threads
+              do (slime-thread-insert idx name status id))
         (goto-char (point-min))))))
 
-(defun slime-thread-insert (idx name status summary id)
+(defun slime-thread-insert (idx name status id)
   (slime-propertize-region `(thread-id ,idx)
     (insert (format "%3s: " id))
     (slime-insert-propertized '(face bold) name)
     (insert-char ?\  (- 30 (current-column)))
-    (let ((summary-start (point)))
+    (let ((start (point)))
       (insert " " status)
-      (insert " " summary)
       (unless (bolp) (insert "\n"))
-      (indent-rigidly summary-start (point) 2))))
+      (indent-rigidly start (point) 2))))
 
 
 ;;;;; Major mode
--- /project/slime/cvsroot/slime/swank-abcl.lisp	2009/09/20 10:51:50	1.74
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2009/10/31 08:54:46	1.75
@@ -585,18 +585,6 @@
   (defimplementation thread-status (thread)
     (format nil "Thread is ~:[dead~;alive~]" (threads:thread-alive-p thread)))
 
-  ;; XXX should be a weak hash table
-  (defparameter *thread-description-map* (make-hash-table)) 
-
-  (defimplementation thread-description (thread) 
-    (threads:synchronized-on *thread-description-map*
-      (or (gethash thread *thread-description-map*)
-          "")))
-
-  (defimplementation set-thread-description (thread description) 
-    (threads:synchronized-on *thread-description-map*
-      (setf (gethash thread *thread-description-map*) description)))
-
   (defimplementation make-lock (&key name)
     (declare (ignore name))
     (threads:make-thread-lock))
--- /project/slime/cvsroot/slime/swank-backend.lisp	2009/10/31 08:22:56	1.182
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2009/10/31 08:54:46	1.183
@@ -1003,9 +1003,8 @@
 
 (definterface thread-name (thread)
    "Return the name of THREAD.
-
-Thread names are be single-line strings and are meaningful to the
-user. They do not have to be unique."
+Thread names are short strings meaningful to the user. They do not
+have to be unique."
    (declare (ignore thread))
    "The One True Thread")
 
@@ -1014,16 +1013,6 @@
    (declare (ignore thread))
    "")
 
-(definterface thread-description (thread)
-  "Return a string describing THREAD."
-  (declare (ignore thread))
-  "")
-
-(definterface set-thread-description (thread description)
-  "Set THREAD's description to DESCRIPTION."
-  (declare (ignore thread description))
-  "")
-
 (definterface thread-attributes (thread)
   "Return a plist of implementation-dependent attributes for THREAD"
   (declare (ignore thread))
--- /project/slime/cvsroot/slime/swank.lisp	2009/10/24 11:05:15	1.666
+++ /project/slime/cvsroot/slime/swank.lisp	2009/10/31 08:54:46	1.667
@@ -3623,21 +3623,20 @@
 a time.")
 
 (defslimefun list-threads ()
-  "Return a list (LABELS (ID NAME STATUS DESCRIPTION ATTRS ...) ...).
+  "Return a list (LABELS (ID NAME STATUS ATTRS ...) ...).
 LABELS is a list of attribute names and the remaining lists are the
 corresponding attribute values per thread."
   (setq *thread-list* (all-threads))
   (let* ((plist (thread-attributes (car *thread-list*)))
          (labels (loop for (key) on plist by #'cddr 
                        collect key)))
-    `((:id :name :status :description , at labels)
+    `((:id :name :status , at labels)
       ,@(loop for thread in *thread-list*
               for name = (thread-name thread)
               for attributes = (thread-attributes thread)
               collect (list* (thread-id thread)
-                             (if (symbolp name) (symbol-name name) name)
+                             (string name)
                              (thread-status thread)
-                             (thread-description thread)
                              (loop for label in labels
                                    collect (getf attributes label)))))))