r8963: pre 2.6.4

[clsql.git] / base / pool.lisp

diff --git a/base/pool.lisp b/base/pool.lisp
index 53730e3a462a87a267fd4faf99f4b107042f63eb..e051423dced247c09b3cae05e5f46cbfe65d4738 100644 (file)
--- a/base/pool.lisp
+++ b/base/pool.lisp
@@ -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)