- (setf closed (eq :closed (gate-state gate))
- (gate-state gate) :open)
- (condition-broadcast (gate-queue gate)))
+ (sb-sys:without-interrupts
+ (setf closed (eq :closed (gate-state gate))
+ (gate-state gate) :open)
+ (condition-broadcast (gate-queue gate))))