[armedbear-cvs] r12161 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Mon Sep 21 06:42:23 2009
New Revision: 12161

Log:
THREADS:MAKE-THREAD :name parameter is now optional.



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

Modified: trunk/abcl/src/org/armedbear/lisp/LispThread.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispThread.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispThread.java	Mon Sep 21 06:42:23 2009
@@ -108,7 +108,8 @@
         this.name = name;
         map.put(javaThread, this);
         try {
-            javaThread.setName(name.getStringValue());
+            if (name != NIL)
+                javaThread.setName(name.getStringValue());
         } catch (ConditionThrowable ex) {
             Debug.trace("Failed to set thread name:");
 	    Debug.trace(ex);
@@ -820,7 +821,7 @@
 
     // ### make-thread
     private static final Primitive MAKE_THREAD =
-        new Primitive("make-thread", PACKAGE_THREADS, true, "function &key name")
+        new Primitive("make-thread", PACKAGE_THREADS, true, "function &optional &key name")
     {
         @Override
         public LispObject execute(LispObject[] args) throws ConditionThrowable