diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-31 15:59:29 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-31 15:59:29 -0700 |
| commit | 10d7a20a79f8e7746d965cfadf1757b3e3799858 (patch) | |
| tree | d0a3e66456f28858701e2ca2507ba452de3185f9 /database/run.lisp | |
| parent | 84e566e92bd7c00fa01bd08c5d22ed77cbeb1a4c (diff) | |
| download | lispruns-10d7a20a79f8e7746d965cfadf1757b3e3799858.tar.gz lispruns-10d7a20a79f8e7746d965cfadf1757b3e3799858.zip | |
Change to centiseconds across the program
Diffstat (limited to 'database/run.lisp')
| -rw-r--r-- | database/run.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/database/run.lisp b/database/run.lisp index a72f52e..739dc96 100644 --- a/database/run.lisp +++ b/database/run.lisp @@ -22,7 +22,7 @@ (let ((start (ignore-errors (run-split-start-time run-split))) (end (or (ignore-errors (run-split-end-time run-split)) (local-time:now)))) (if start - (floor (* 1000 (local-time:timestamp-difference end start)))))) + (floor (* 100 (local-time:timestamp-difference end start)))))) (defun format-elapsed-time (run-split) (let ((elapsed (run-split-elapsed-time run-split))) |