[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv24561

Modified Files:
	swank-openmcl.lisp 
Log Message:
Fx typo

--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/09/20 21:46:16	1.138
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/09/20 22:04:01	1.139
@@ -924,8 +924,10 @@
                  (setq *known-processes*
                        (acons (ccl::process-serial-number thread) 
                               (list thread mailbox)
-                              (remove-if  #'ccl::process-exhausted-p
-					  *known-processes*)))
+                              (remove-if  
+                               (lambda (entry)
+                                 (ccl::process-exhausted-p (cadr entry)))
+                               *known-processes*)))
                  mailbox))))))
 
 (defimplementation send (thread message)