Plaster
New
List
Login
common-lisp
default
anonymous
2020.08.16 18:54:18
(defmacro write-with-rw-lock ((lock) &body body) (let ((locked (gensym))) `(let ((,locked nil)) (unwind-protect (progn (begin-write ,lock) (setf ,locked t)) (prog1 (if ,locked (locally ,@body)) (if ,locked (end-write ,lock)))))))
Raw
Annotate
Repaste
Edit