Macro

Summary

Causes any interrupts that occur during the execution of a body of code to be queued, in non-SMP LispWorks only.

Package

mp

Signature

without-interrupts &rest body => result

Arguments

body

The forms to execute while interrupts are queued.

Values

result

The result of executing body .

Description

While body is executing, all interrupts (for example, preemption, keyboard break etc.) are queued. They are executed when body exits.

Notes

without-interrupts is not supported in SMP LispWorks, that is on Microsoft Windows, Mac OS X, Linux, FreeBSD and x86/x64 Solaris platforms.

Example

To ensure that the seconds and milliseconds slots are always consistent in non-SMP LispWorks, you can use without-interrupts within the function which sets them.

(defstruct elapsed-time

  seconds

  milliseconds)

(defun update-elapsed-time-atomically 

     (elapsed-time seconds milliseconds)

  (mp:without-interrupts

   (setf (elapsed-time-seconds elapsed-time) seconds

         (elapsed-time-milliseconds elapsed-time)

         milliseconds)))

See also

without-preemption