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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(thread-name): Take a thread object as argument.
(thread-status, all-threads, thread-alive-p): New function.

(thread-id): Deleted.
Date: Sat Feb  7 14:28:41 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.27 slime/swank-backend.lisp:1.28
--- slime/swank-backend.lisp:1.27	Wed Feb  4 17:18:46 2004
+++ slime/swank-backend.lisp	Sat Feb  7 14:28:41 2004
@@ -516,28 +516,19 @@
 (definterface spawn (fn &key name)
   "Create a new thread to call FN.")
 
-(definterface thread-id ()
-   "Return a value that uniquely identifies the current thread.
-Thread-IDs allow Emacs to refer to individual threads.
-
-When called several times by the same thread, all return values are
-EQUAL. The value has a READable printed representation that preserves
-equality. The printed representation must be identical in Emacs Lisp
-and Common Lisp, and short enough to include in the REPL prompt.
-
-For example, a THREAD-ID could be an integer or a short ASCII string.
-
-Systems that do not support multiprocessing return NIL."
-   nil)
-
-(definterface thread-name (thread-id)
-   "Return the name of the thread identified by THREAD-ID.
+(definterface thread-name (thread)
+   "Return the name of THREAD.
 
 Thread names are be single-line strings and are meaningful to the
 user. They do not have to be unique."
-   (declare (ignore thread-id))
+   (declare (ignore thread))
    "The One True Thread")
 
+(definterface thread-status (thread)
+   "Return a string describing THREAD's state."
+   (declare (ignore thread))
+   "")
+
 (definterface make-lock (&key name)
    "Make a lock for thread synchronization.
 Only one thread may hold the lock (via CALL-WITH-LOCK-HELD) at a time."
@@ -553,6 +544,12 @@
 (definterface current-thread ()
   "Return the currently executing thread."
   0)
+
+(definterface all-threads ()
+  "Return a list of all threads.")
+
+(definterface thread-alive-p (thread)
+  "Test if THREAD is termintated.")
 
 (definterface interrupt-thread (thread fn)
   "Cause THREAD to execute FN.")