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

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