Added checks against releasing an untaken lock

1 files changed, 2 insertions, 0 deletions

diff --git a/src/rw-lock.lisp b/src/rw-lock.lisp
index b32d3d0..bd2606c 100644
--- a/src/rw-lock.lisp
+++ b/src/rw-lock.lisp
@@ -72,6 +72,7 @@
   (check-type rw-lock rw-lock)
   (with-slots (lock unlocked readers has-writer) rw-lock
     (with-lock-held (lock)
+      (assert (> readers 0) nil "Trying to release a read lock that's not taken!")
       (decf readers)
       (when (zerop readers)
         (condition-broadcast unlocked))))
@@ -117,6 +118,7 @@
   (check-type rw-lock rw-lock)
   (with-slots (lock unlocked readers has-writer) rw-lock
     (with-lock-held (lock)
+      (assert has-writer nil "Trying to release a write lock that's not taken!")
       (setf has-writer nil)
       (condition-broadcast unlocked)))
   rw-lock)