X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Fpool.lisp;h=e051423dced247c09b3cae05e5f46cbfe65d4738;hb=6c70be35cc348b559d8aa869ecd0e14e27d5edbc;hp=819a8981a7e8806b6f06a2b9404928fa9111f919;hpb=d8cc56b3f55e00fda2afffe8dae7d158bf33e2d8;p=clsql.git

diff --git a/base/pool.lisp b/base/pool.lisp
index 819a898..e051423 100644
--- a/base/pool.lisp
+++ b/base/pool.lisp
@@ -20,7 +20,7 @@
 
 (defun make-process-lock (name) 
   #+allegro (mp:make-process-lock :name name)
-  #+cmu (mp:make-lock :name name)
+  #+cmu (mp:make-lock name)
   #+lispworks (mp:make-lock :name name)
   #+openmcl (ccl:make-lock :name name)
   #+sb-thread (sb-thread:make-mutex :name name)
@@ -35,10 +35,10 @@
   (let ((l (gensym)))
     `(let ((,l ,lock))
       #+allegro (mp:with-process-lock (,l) ,@body)
-      #+cmu `(mp:with-lock-held (,lock) ,@body)
-      #+openmcl (ccl:with-lock-grabbed (,lock) ,@body)
+      #+cmu (mp:with-lock-held (,l) ,@body)
+      #+openmcl (ccl:with-lock-grabbed (,l) ,@body)
       #+lispworks (mp:with-lock (,l) ,@body)
-      #+sb-thread (sb-thread:with-recursive-lock (,lock) ,@body)
+      #+sb-thread (sb-thread:with-recursive-lock (,l) ,@body)
       ))
 
   #+scl `(thread:with-lock-held (,lock ,desc) ,@body)