Fix typos in docstrings and function names.

[sbcl.git] / contrib / sb-concurrency / gate.lisp

diff --git a/contrib/sb-concurrency/gate.lisp b/contrib/sb-concurrency/gate.lisp
index 9628d57..c7f8b94 100644 (file)
--- a/contrib/sb-concurrency/gate.lisp
+++ b/contrib/sb-concurrency/gate.lisp
@@ -17,7 +17,7 @@
 (defstruct (gate (:constructor %make-gate)
                  (:copier nil)
                  (:predicate gatep))
-  "GATE type. Gates are syncronization constructs suitable for making
+  "GATE type. Gates are synchronization constructs suitable for making
 multiple threads wait for single event before proceeding.
 
 Use WAIT-ON-GATE to wait for a gate to open, OPEN-GATE to open one,
@@ -58,9 +58,10 @@ if the gate was already open."
   (declare (gate gate))
   (let (closed)
     (with-mutex ((gate-mutex gate))
-      (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))))
     closed))
 
 (defun close-gate (gate)