projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8952: remove unused schema version table
[clsql.git]
/
base
/
pool.lisp
diff --git
a/base/pool.lisp
b/base/pool.lisp
index 819a8981a7e8806b6f06a2b9404928fa9111f919..53730e3a462a87a267fd4faf99f4b107042f63eb 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)