mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic fix (indent)

Browse source
This commit is contained in:
Daniel Kochmanski 2017-05-02 18:19:55 +02:00
parent bd84ab8986
commit 6ec49062fc
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/mp.lsp
View file

@ -143,16 +143,18 @@ which is executed with the lock held by current thread, and
WITH-RWLOCK returns the values of body.
Valid values of argument OP are :READ or :WRITE
(for reader and writer access accordingly)."
\(for reader and writer access accordingly)."
(assert (member op '(:read :write) :test #'eq))
(let ((s-lock (gensym)))
`(let ((,s-lock ,lock))
(,(if (eq :read op)
'mp:get-rwlock-read
'mp:get-rwlock-write) ,s-lock t)
'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:giveup-rwlock-write)
,s-lock)))))