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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
Fix thread-name/thread-status.
Date: Sun Jun 27 04:07:31 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.3 slime/swank-abcl.lisp:1.4
--- slime/swank-abcl.lisp:1.3	Wed Jun 16 15:04:56 2004
+++ slime/swank-abcl.lisp	Sun Jun 27 04:07:31 2004
@@ -314,10 +314,10 @@
   (ext:make-thread (lambda () (funcall fn))))
 
 (defimplementation thread-name (thread)
-  "thread-name not implemented")
+  (princ-to-string thread))
 
 (defimplementation thread-status (thread)
-  (format nil "Thread is ~[dead~;alive~]" (thread-alive-p thread)))
+  (format nil "Thread is ~:[dead~;alive~]" (ext:thread-alive-p thread)))
 
 (defimplementation make-lock (&key name)
   (ext:make-thread-lock))