diff options
author | Junker <1144095+Junker@users.noreply.github.com> | 2023-05-30 00:49:19 +0700 |
---|---|---|
committer | Junker <1144095+Junker@users.noreply.github.com> | 2023-05-30 00:49:19 +0700 |
commit | 4023d7657a8dd673a5ed03baffe96bb239e7d617 (patch) | |
tree | 48aee2166eed3ea9f41acf66dcf6c2f65c10916f | |
parent | 7d1e57ca1e011e0e56059ebf6e833e0976904d2a (diff) |
fix winner-mode dumper
-rw-r--r-- | util/winner-mode/dumper.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/util/winner-mode/dumper.lisp b/util/winner-mode/dumper.lisp index 708b537..b8bee8c 100644 --- a/util/winner-mode/dumper.lisp +++ b/util/winner-mode/dumper.lisp @@ -12,7 +12,7 @@ (declare (ignore args)) (let* ((group-number (current-group-number))) (check-ids group-number *current-ids* *max-ids*) - (stumpwm::dump-to-file (stumpwm:dump-group (stumpwm:current-group)) + (stumpwm::dump-to-file (stumpwm::dump-group (stumpwm:current-group)) (dump-name group-number (incf (gethash group-number *current-ids*)))) (when (> (gethash group-number *current-ids*) (gethash group-number *max-ids*)) |