(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))
#+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))