(defmacro write-with-rw-lock ((lock) &body body) (let ((locked (gensym))) `(let ((,locked nil)) (unwind-protect (progn (begin-write ,lock) (setf ,locked t) (if ,locked (locally ,@body)) (if ,locked (end-write ,lock))) (if ,locked (end-write ,lock))))))