threading: proctect with-rwlock against interrupts

2026-01-22 04:21:16 -08:00 · 2018-09-18 18:45:41 +02:00 · 2018-09-18 18:45:41 +02:00 · a34b6d0ca4
commit a34b6d0ca4
parent c301009424
1 changed files with 8 additions and 7 deletions
--- a/src/lsp/mp.lsp
+++ b/src/lsp/mp.lsp
@ -151,10 +151,11 @@ Valid values of argument OP are :READ or :WRITE
             'mp:get-rwlock-read
             'mp:get-rwlock-write)
         ,s-lock t)
-       (unwind-protect
-            (progn
-              ,@body)
-         (,(if (eq :read op)
-               'mp:giveup-rwlock-read
-               'mp:giveup-rwlock-write)
-           ,s-lock)))))
+       (mp:without-interrupts
+           (unwind-protect
+                (mp:with-restored-interrupts
+                    ,@body)
+             (,(if (eq :read op)
+                   'mp:giveup-rwlock-read
+                   'mp:giveup-rwlock-write)
+               ,s-lock))))))