? Lisp-Dep/fix-abcl.lisp
Index: Lisp-Dep/mp-sbcl.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp,v
retrieving revision 1.9
diff -u -r1.9 mp-sbcl.lisp
--- Lisp-Dep/mp-sbcl.lisp	4 Aug 2006 12:49:53 -0000	1.9
+++ Lisp-Dep/mp-sbcl.lisp	27 Nov 2007 22:51:22 -0000
@@ -63,7 +63,7 @@
 (defvar *permanent-queue*
   (sb-thread:make-mutex :name "Lock for disabled threads"))
 (unless (sb-thread:mutex-value *permanent-queue*)
-  (sb-thread:get-mutex *permanent-queue* :locked nil))
+  (sb-thread:get-mutex *permanent-queue*))
 
 (defun make-process (function &key name)
   (let ((p (%make-process :name name :function function)))