diff options
| author | Teddy Wing | 2021-02-06 20:39:27 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-06 20:39:27 +0100 |
| commit | c65f9d8f92f944f8bb7a1e87e67fa9a3db85ddf7 (patch) | |
| tree | e54848364c1e4120bc4a11ff589c589704491147 | |
| parent | f650f5b9bf78270c8ab7ebb26ae411ba6c8d7589 (diff) | |
| download | cl-wait-group-c65f9d8f92f944f8bb7a1e87e67fa9a3db85ddf7.tar.bz2 | |
wait: Exit when `<= 0` instead of `= 0`
Just in case the counter becomes negative before the loop condition
runs.
| -rw-r--r-- | src/wait-group.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/wait-group.lisp b/src/wait-group.lisp index b47f07b..b2bc22f 100644 --- a/src/wait-group.lisp +++ b/src/wait-group.lisp @@ -40,4 +40,4 @@ (defmethod wait ((wait-group wait-group)) "TODO" - (loop until (= (counter wait-group) 0))) + (loop until (<= (counter wait-group) 0))) |