r9042: Automated commit for Debian build of clsql upstream-version-2.7.5

[clsql.git] / base / utils.lisp

diff --git a/base/utils.lisp b/base/utils.lisp
index ae1a4b06b14dd119288bc99589bb019225478fe6..2456d368bb3f8a961c63a7365a930e127cfa3933 100644 (file)
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -68,7 +68,7 @@
 (defmacro without-interrupts (&body body)
   #+lispworks `(mp:without-preemption ,@body)
   #+allegro `(mp:without-scheduling ,@body)
-  #+cmu `(pcl::without-interrupts ,@body)
+  #+cmu `(system:without-interrupts ,@body)
   #+sbcl `(sb-sys::without-interrupts ,@body)
   #+openmcl `(ccl:without-interrupts ,@body))
 
@@ -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))