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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
find-thread: :test => :key
Date: Sun Jun 27 10:10:33 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.6 slime/swank-abcl.lisp:1.7
--- slime/swank-abcl.lisp:1.6	Sun Jun 27 08:00:17 2004
+++ slime/swank-abcl.lisp	Sun Jun 27 10:10:33 2004
@@ -327,7 +327,7 @@
 
 (defimplementation find-thread (id)
   (find id (all-threads) 
-        :test (lambda (thread)
+        :key (lambda (thread)
                 (getf (gethash thread *thread-props*) 'id))))
 
 (defimplementation thread-name (thread)