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)
-  #+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)