[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	swank-abcl.lisp ChangeLog 
Log Message:
	* swank-abcl.lisp (thread-description): Fix typo.
	(set-thread-description): Ditto.


--- /project/slime/cvsroot/slime/swank-abcl.lisp	2009/09/20 09:04:53	1.73
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2009/09/20 10:51:50	1.74
@@ -344,7 +344,7 @@
     (backtrace start end)))
 
 (defimplementation print-frame (frame stream)
-  (write-string 
+  (write-string
    #+#.(swank-backend::with-symbol 'backtrace 'sys)
    (sys:frame-to-string frame)
    #-#.(swank-backend::with-symbol 'backtrace 'sys)
@@ -589,12 +589,12 @@
   (defparameter *thread-description-map* (make-hash-table)) 
 
   (defimplementation thread-description (thread) 
-    (synchronized-on *thread-description-map*
+    (threads:synchronized-on *thread-description-map*
       (or (gethash thread *thread-description-map*)
-          "No description available.")))
+          "")))
 
   (defimplementation set-thread-description (thread description) 
-    (synchronized-on *thread-description-map*
+    (threads:synchronized-on *thread-description-map*
       (setf (gethash thread *thread-description-map*) description)))
 
   (defimplementation make-lock (&key name)
--- /project/slime/cvsroot/slime/ChangeLog	2009/09/20 09:39:16	1.1860
+++ /project/slime/cvsroot/slime/ChangeLog	2009/09/20 10:51:50	1.1861
@@ -1,5 +1,10 @@
 2009-09-20  Tobias C. Rittweiler <tcr at freebits.de>
 
+	* swank-abcl.lisp (thread-description): Fix typo.
+	(set-thread-description): Ditto.
+
+2009-09-20  Tobias C. Rittweiler <tcr at freebits.de>
+
 	Generalize M-? (or M-_ respectively.)
 
 	It will now list: