Fix current-time for non-sbcl

Shirakumo · Feb 13, 2019 · 735afd8 · 735afd8
1 parent 27a8f86
commit 735afd8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/toolkit.lisp b/toolkit.lisp
@@ -60,8 +60,8 @@
              (+ (- s current-time-start)
                 (* ms
                    (coerce 1/1000000 'double-float)))))
-  #-sbcl (/ (get-internal-real-time)
+  #-sbcl (* (get-internal-real-time)
-            internal-time-units-per-second))
+            (coerce (/ internal-time-units-per-second) 'double-float)))
 
 (defmacro undefmethod (name &rest args)
   (flet ((lambda-keyword-p (symbol)