projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(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 (,l
ock
) ,@body)
+ #+cmu
(mp:with-lock-held (,l
) ,@body)
+ #+openmcl (ccl:with-lock-grabbed (,l) ,@body)
#+lispworks (mp:with-lock (,l) ,@body)
#+lispworks (mp:with-lock (,l) ,@body)
- #+sb-thread (sb-thread:with-recursive-lock (,l
ock
) ,@body)
+ #+sb-thread (sb-thread:with-recursive-lock (,l) ,@body)
))
#+scl `(thread:with-lock-held (,lock ,desc) ,@body)
))
#+scl `(thread:with-lock-held (,lock ,desc) ,@body)