X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Fpool.lisp;h=53730e3a462a87a267fd4faf99f4b107042f63eb;hp=819a8981a7e8806b6f06a2b9404928fa9111f919;hb=5068697a98c10224f3a3e0a7125ba64cf3d3b4fb;hpb=c339a403634db7fc71308bb6da91e81af4cde1bb

diff --git a/base/pool.lisp b/base/pool.lisp
index 819a898..53730e3 100644
--- 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)