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

[Helmut Eller]

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

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

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.57 slime/swank-backend.lisp:1.58
--- slime/swank-backend.lisp:1.57	Fri Jun 25 01:05:25 2004
+++ slime/swank-backend.lisp	Sun Jun 27 08:00:30 2004
@@ -180,6 +180,9 @@
     "Return a suitable initial value for SWANK:*READTABLE-ALIST*."
   '())
 
+(definterface quit-lisp ()
+  "Exit the current lisp image.")
+
 
 ;;;; Compilation
 
@@ -550,6 +553,17 @@
 (definterface spawn (fn &key name)
   "Create a new thread to call FN.")
 
+(definterface thread-id (thread)
+  "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>)")
+
+(definterface find-thread (id)
+  "Return the thread for ID.
+ID should be an id previously obtained with THREAD-ID.
+Can return nil if the thread no longer exists.")
+
 (definterface thread-name (thread)
    "Return the name of THREAD.
 
@@ -599,6 +613,3 @@
 
 (definterface receive ()
   "Return the next message from current thread's mailbox.")
-
-(definterface quit-lisp ()
-  "Exit the current lisp image.")