(defmacro without-interrupts (&body body)
#+lispworks `(mp:without-preemption ,@body)
#+allegro `(mp:without-scheduling ,@body)
(defmacro without-interrupts (&body body)
#+lispworks `(mp:without-preemption ,@body)
#+allegro `(mp:without-scheduling ,@body)