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

[Helmut Eller]

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

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

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.77 slime/swank-openmcl.lisp:1.78
--- slime/swank-openmcl.lisp:1.77	Wed Jun 16 15:04:04 2004
+++ slime/swank-openmcl.lisp	Sun Jun 27 08:00:50 2004
@@ -520,6 +520,12 @@
 
 (defimplementation startup-multiprocessing ())
 
+(defimplementation thread-id (thread)
+  (ccl::process-serial-number thread))
+
+(defimplementation find-thread (id)
+  (find id (ccl:all-processes) :key #'ccl::process-serial-number))
+
 (defimplementation thread-name (thread)
   (ccl::process-name thread))