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

diff --git a/base/utils.lisp b/base/utils.lisp
index ae1a4b0..2456d36 100644
--- 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))