[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv21272

Modified Files:
	ChangeLog swank-backend.lisp 
Log Message:
* swank-backend.lisp (thread-id): Add a default implementation which
works with the default implementation of current-thread.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/05 17:38:44	1.1392
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/05 17:38:49	1.1393
@@ -3,6 +3,8 @@
 	* swank-backend.lisp (make-recursive-lock)
 	(call-with-recursive-lock-held): Deleted.  Make the default locks
 	"recursive" instead.
+	(thread-id): Add a default implementation which works
+	with the default implementation of current-thread.
 
 	* swank-gray.lisp (stream-write-string): New method.
 
--- /project/slime/cvsroot/slime/swank-backend.lisp	2008/08/05 17:38:44	1.138
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2008/08/05 17:38:49	1.139
@@ -937,7 +937,8 @@
   "Return an Emacs-parsable object to identify THREAD.
 
 Ids should be comparable with equal, i.e.:
- (equal (thread-id <t1>) (thread-id <t2>)) <==> (eq <t1> <t2>)")
+ (equal (thread-id <t1>) (thread-id <t2>)) <==> (eq <t1> <t2>)"
+  thread)
 
 (definterface find-thread (id)
   "Return the thread for ID.