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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
use thread names
Date: Mon Jun 28 10:46:13 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.7 slime/swank-abcl.lisp:1.8
--- slime/swank-abcl.lisp:1.7	Sun Jun 27 10:10:33 2004
+++ slime/swank-abcl.lisp	Mon Jun 28 10:46:13 2004
@@ -310,7 +310,7 @@
   #+nil(mp:start-scheduler))
 
 (defimplementation spawn (fn &key name)
-  (ext:make-thread (lambda () (funcall fn))))
+  (ext:make-thread (lambda () (funcall fn)) :name name))
 
 (defvar *thread-props-lock* (ext:make-thread-lock))
 
@@ -331,7 +331,7 @@
                 (getf (gethash thread *thread-props*) 'id))))
 
 (defimplementation thread-name (thread)
-  (princ-to-string thread))
+  (ext:thread-name thread))
 
 (defimplementation thread-status (thread)
   (format nil "Thread is ~:[dead~;alive~]" (ext:thread-alive-p thread)))