diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-29 21:31:48 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-29 21:31:48 -0700 |
| commit | edeab2d09444e02a2eeb3adb2bf7933a2851c5b3 (patch) | |
| tree | 774027b0b7f31f457a4f01eb977ed8922bcfaf6a /speedrun.lisp | |
| parent | 088a03c2e788127c5b8606d0a6a1956ff58e4ec1 (diff) | |
| download | lispruns-edeab2d09444e02a2eeb3adb2bf7933a2851c5b3.tar.gz lispruns-edeab2d09444e02a2eeb3adb2bf7933a2851c5b3.zip | |
Get a timer on the screen finally
Diffstat (limited to 'speedrun.lisp')
| -rw-r--r-- | speedrun.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/speedrun.lisp b/speedrun.lisp index d872227..b78f75d 100644 --- a/speedrun.lisp +++ b/speedrun.lisp @@ -52,8 +52,8 @@ (speedrun-start-timestamp speedrun) (get-internal-real-time) (run-split-start-time (current-split speedrun)) (local-time:now))) -;; Set the state of the speedrun to be stopped if there are no more -;; splits, or set the current split to the next one +;; Set the state of the speedrun to be stopped if there are no more splits. +;; Or, set the current split to the next one in the list. (defun next-split (speedrun) (let ((now (local-time:now))) (setf (run-split-end-time (current-split speedrun)) now) |