Commit a34b6d0c authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

threading: proctect with-rwlock against interrupts

parent c3010094
......@@ -151,10 +151,11 @@ Valid values of argument OP are :READ or :WRITE
'mp:get-rwlock-read
'mp:get-rwlock-write)
,s-lock t)
(mp:without-interrupts
(unwind-protect
(progn
(mp:with-restored-interrupts
,@body)
(,(if (eq :read op)
'mp:giveup-rwlock-read
'mp:giveup-rwlock-write)
,s-lock)))))
,s-lock))))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment