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

[Luke Gorrie]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(thread-id, thread-name): Fixed silly bugs (thanks Marco Baringer).

Date: Mon Jan 19 16:48:04 2004
Author: lgorrie

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.53 slime/swank-openmcl.lisp:1.54
--- slime/swank-openmcl.lisp:1.53	Mon Jan 19 16:01:51 2004
+++ slime/swank-openmcl.lisp	Mon Jan 19 16:48:04 2004
@@ -596,11 +596,11 @@
 (defimplementation thread-id ()
   (let ((id (ccl::process-serial-number ccl:*current-process*)))
     ;; Possibly not thread-safe.
-    (pushnew (cons id ccl:*current-process*) *known-processes*)
+    (pushnew (cons id ccl:*current-process*) *known-processes* :key #'car)
     id))
 
 (defimplementation thread-name (thread-id)
-  (ccl::process-name (cdr (assq thread-id *known-processes*))))
+  (ccl::process-name (cdr (assoc thread-id *known-processes*))))
 
 (defimplementation make-lock (&key name)
   (ccl:make-lock name))