[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv15619

Modified Files:
	swank-sbcl.lisp 
Log Message:
(thread-id, find-thread): New backend function.
Date: Sun Jun 27 08:00:56 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.92 slime/swank-sbcl.lisp:1.93
--- slime/swank-sbcl.lisp:1.92	Fri Jun 25 01:06:20 2004
+++ slime/swank-sbcl.lisp	Sun Jun 27 08:00:56 2004
@@ -742,6 +742,13 @@
 
   (defimplementation startup-multiprocessing ())
 
+  (defimplementation thread-id (thread)
+    thread)
+
+  (defimplementation find-thread (id)
+    (if (member id (all-threads))
+        id))
+  
   (defimplementation thread-name (thread)
     (format nil "Thread ~D" thread))