X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Futils.lisp;h=2456d368bb3f8a961c63a7365a930e127cfa3933;hb=af6f86714c42fb34e4d914136cf18f336fc2460e;hp=55f2bc91e540401d957a3e3679f18ebfc4b9bc60;hpb=d0f147d0e7d942b379bd7cd472f26b00c33916bc;p=clsql.git

diff --git a/base/utils.lisp b/base/utils.lisp
index 55f2bc9..2456d36 100644
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -76,7 +76,7 @@
   #+allegro (mp:make-process-lock :name name)
   #+cmu (mp:make-lock name)
   #+lispworks (mp:make-lock :name name)
-  #+openmcl (ccl:make-lock :name name)
+  #+openmcl (ccl:make-lock name)
   #+sb-thread (sb-thread:make-mutex :name name)
   #+scl (thread:make-lock name)
   #-(or allegro cmu lispworks openmcl sb-thread scl) (declare (ignore name))