Commit 83670e6b authored by Daniel Kochmański's avatar Daniel Kochmański

get-time: call the function uniformly

We had no other implementation anyway
parent 492a151d
......@@ -375,17 +375,11 @@ Estimated total monitoring overhead: 0.88 seconds
;;; the beginning of time. time-units-per-second allows us to convert units
;;; to seconds.
(progn
#-(or :cmu :clisp :clozure :allegro)
(eval-when (compile eval)
(warn
"You may want to supply implementation-specific get-time functions."))
(defconstant time-units-per-second internal-time-units-per-second)
(defmacro get-time ()
`(the time-type (get-internal-run-time)))
(defconstant time-units-per-second internal-time-units-per-second)
(defmacro get-time ()
`(the time-type (get-internal-run-time)))
)
;;; ********************************
;;; Consing Functions **************
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment