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.")