diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-06-04 13:09:39 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-06-04 13:09:39 -0700 |
| commit | 6dadca779691ae29c5a2bbfb4f2c2d101ca44911 (patch) | |
| tree | d628ab0cb95370a032a201d1502095c58d327410 /speedrun.lisp | |
| parent | f272429796f6b9bb1d9d39373d196dc08a499e69 (diff) | |
| download | lispruns-6dadca779691ae29c5a2bbfb4f2c2d101ca44911.tar.gz lispruns-6dadca779691ae29c5a2bbfb4f2c2d101ca44911.zip | |
Added more CLI options
Diffstat (limited to 'speedrun.lisp')
| -rw-r--r-- | speedrun.lisp | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/speedrun.lisp b/speedrun.lisp index f1238f1..e393282 100644 --- a/speedrun.lisp +++ b/speedrun.lisp @@ -6,9 +6,6 @@ (title :initarg :title :accessor speedrun-title) - ;; Whatever internal time units decided by SBCL (get-internal-real-time) - ;; (local-time:now) *could* be used, but by my testing it's around 6 times slower - ;; so why not (start-timestamp :initarg :start-timestamp :accessor speedrun-start-timestamp) @@ -66,8 +63,7 @@ (if (equal (speedrun-current-split-index speedrun) (1- (length (speedrun-splits speedrun)))) (progn (setf - (run-end-date (speedrun-run-dao speedrun)) (local-time:now) - ;; Since timer can get +-0.02 seconds out of sync of splits, just set it to the sum of the splits' elapsed + ;; Since timer computation can get +-0.02 seconds out of sync of splits, just set it to the sum of the splits' elapsed time (speedrun-elapsed speedrun) (millis-since-internal-timestamp 0 (apply '+ (mapcar 'run-split-elapsed-time (speedrun-splits speedrun)))) (speedrun-state speedrun) 'STOPPED) (save-speedrun speedrun)) |