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 819a8981a7e8806b6f06a2b9404928fa9111f919..e051423dced247c09b3cae05e5f46cbfe65d4738 100644
(file)
--- a/
base/pool.lisp
+++ b/
base/pool.lisp
@@
-20,7
+20,7
@@
(defun make-process-lock (name)
#+allegro (mp:make-process-lock :name name)
(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)
#+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)
(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)