X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=60bf2a5313de9eb4cd17cd8236f0e09d18d4c779;hb=ce2002271034469dc3ccdcaef7d13db76403b90d;hp=9a6d825c96750e241c09fb5a4c86d6518b0f7677;hpb=2b90fd1dbad23322258222a2ef4cef7f6a00831d;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 9a6d825..60bf2a5 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -11,18 +11,14 @@
 
 (in-package "SB!IMPL")
 
-;;; Internal epoch, used as base for real-time.
-(declaim (unsigned-byte *internal-epoch*))
-(defvar *internal-epoch* 0)
-
 (defun time-reinit ()
-  (setf *internal-epoch* (system-internal-real-time)))
+  (reinit-internal-real-time))
 
-(defun get-internal-real-time ()
-  #!+sb-doc
-  "Return the real time (\"wallclock time\") since startup in the internal
-time format. (See INTERNAL-TIME-UNITS-PER-SECOND.)"
-  (- (system-internal-real-time) *internal-epoch*))
+;;; Implemented in unix.lisp and win32.lisp.
+#!+sb-doc
+(setf (fdocumentation 'get-internal-real-time 'function)
+      "Return the real time (\"wallclock time\") since startup in the internal
+time format. (See INTERNAL-TIME-UNITS-PER-SECOND.)")
 
 (defun get-internal-run-time ()
   #!+sb-doc