From 6dadca779691ae29c5a2bbfb4f2c2d101ca44911 Mon Sep 17 00:00:00 2001 From: Logan Hunt Date: Sat, 4 Jun 2022 13:09:39 -0700 Subject: Added more CLI options --- speedrun.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'speedrun.lisp') 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)) -- cgit v1.2.3-70-g09d2