Skip to content
Permalink
Browse files

Fix current-time for non-sbcl

  • Loading branch information...
Shinmera committed Feb 13, 2019
1 parent 27a8f86 commit 735afd8c11f559f105aee866516858de5f003d5f
Showing with 2 additions and 2 deletions.
  1. +2 −2 toolkit.lisp
@@ -60,8 +60,8 @@
(+ (- s current-time-start)
(* ms
(coerce 1/1000000 'double-float)))))
#-sbcl (/ (get-internal-real-time)
internal-time-units-per-second))
#-sbcl (* (get-internal-real-time)
(coerce (/ internal-time-units-per-second) 'double-float)))

(defmacro undefmethod (name &rest args)
(flet ((lambda-keyword-p (symbol)

0 comments on commit 735afd8

Please sign in to comment.
You can’t perform that action at this time.