Changeset 12027

Timestamp:

07/02/09 13:56:20 (14 years ago)

Author:

Mark Evenson

Message:

Set the name of associated the java.lang.Thread if specified.

Updated docstrings.

File:

• trunk/abcl/src/org/armedbear/lisp/LispThread.java (modified) (10 diffs)

trunk/abcl/src/org/armedbear/lisp/LispThread.java

@@ -108 +108 @@
         this.name = name;
         map.put(javaThread, this);
+        try {
+            javaThread.setName(name.getStringValue());
+        } catch (ConditionThrowable ex) {
+            Debug.trace("Failed to set thread name:");
+      Debug.trace(ex);
+        }
         javaThread.setDaemon(true);
         javaThread.start();
@@ -1022 +1028 @@
     // ### threadp
     private static final Primitive THREADP =
-        new Primitive("threadp", PACKAGE_EXT, true, "object")
+        new Primitive("threadp", PACKAGE_EXT, true, "object",
+          "Boolean predicate as whether OBJECT is a thread.")
     {
         @Override
@@ -1033 +1040 @@
     // ### thread-alive-p
     private static final Primitive THREAD_ALIVE_P =
-        new Primitive("thread-alive-p", PACKAGE_EXT, true, "thread")
+        new Primitive("thread-alive-p", PACKAGE_EXT, true, "thread",
+          "Boolean predicate whether THREAD is alive.")
     {
         @Override
@@ -1051 +1059 @@
     // ### thread-name
     private static final Primitive THREAD_NAME =
-        new Primitive("thread-name", PACKAGE_EXT, true, "thread")
+        new Primitive("thread-name", PACKAGE_EXT, true, "thread",
+          "Return the name of THREAD if it has one.")
     {
         @Override
@@ -1075 +1084 @@
 
     // ### sleep
-    private static final Primitive SLEEP = new Primitive("sleep", "seconds")
+    private static final Primitive SLEEP = new Primitive("sleep", PACKAGE_CL, true, "seconds",
+               "Causes the invoking thread to sleep for SECONDS seconds.\nSECONDS may be a value between 0 1and 1.")
     {
         @Override
@@ -1093 +1103 @@
     // ### mapcar-threads
     private static final Primitive MAPCAR_THREADS =
-        new Primitive("mapcar-threads", PACKAGE_EXT, true)
+        new Primitive("mapcar-threads", PACKAGE_EXT, true, "function",
+          "Applies FUNCTION to all existing threads.")
     {
         @Override
@@ -1113 +1124 @@
     // ### destroy-thread
     private static final Primitive DESTROY_THREAD =
-        new Primitive("destroy-thread", PACKAGE_EXT, true)
+        new Primitive("destroy-thread", PACKAGE_EXT, true, "thread", 
+          "Mark THREAD as destroyed.")
     {
         @Override
@@ -1136 +1148 @@
     // order is not guaranteed.
     private static final Primitive INTERRUPT_THREAD =
-        new Primitive("interrupt-thread", PACKAGE_EXT, true)
+        new Primitive("interrupt-thread", PACKAGE_EXT, true,
+          "thread function &rest args",
+          "Interrupts THREAD and forces it to apply FUNCTION to ARGS.\nWhen the function returns, the thread's original computation continues. If  multiple interrupts are queued for a thread, they are all run, but the order is not guaranteed.")
     {
         @Override
@@ -1161 +1175 @@
     // ### current-thread
     private static final Primitive CURRENT_THREAD =
-        new Primitive("current-thread", PACKAGE_EXT, true)
+        new Primitive("current-thread", PACKAGE_EXT, true, "",
+          "Returns a reference to invoking thread.")
     {
         @Override
@@ -1172 +1187 @@
     // ### backtrace-as-list
     private static final Primitive BACKTRACE_AS_LIST =
-        new Primitive("backtrace-as-list", PACKAGE_EXT, true)
+        new Primitive("backtrace-as-list", PACKAGE_EXT, true, "",
+          "Returns a backtrace of the invoking thread as a list.")
     {
         @Override