0.9.18.6: Win32 get-internal-real-time improved
[sbcl.git] / src / code / early-time.lisp
1 ;;;; Time-related constants that are needed before unix.lisp / win32.lisp
2 ;;;; can be built.
3
4 ;;;; This software is part of the SBCL system. See the README file for
5 ;;;; more information.
6 ;;;;
7 ;;;; This software is derived from the CMU CL system, which was
8 ;;;; written at Carnegie Mellon University and released into the
9 ;;;; public domain. The software is in the public domain and is
10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
11 ;;;; files for more information.
12
13 (in-package "SB!IMPL")
14
15 (defconstant sb!xc:internal-time-units-per-second 1000
16   #!+sb-doc
17   "The number of internal time units that fit into a second. See
18 GET-INTERNAL-REAL-TIME and GET-INTERNAL-RUN-TIME.")