1.0.27.31: repeatable fasl header and debug-source

[sbcl.git] / src / code / win32.lisp

diff --git a/src/code/win32.lisp b/src/code/win32.lisp
index c91d9aa..facc8c9 100644 (file)
--- a/src/code/win32.lisp
+++ b/src/code/win32.lisp
@@ -511,14 +511,14 @@
                (addr ,kernel-time)
                (addr ,user-time))))
 
-(declaim (inline system-internal-real-time system-internal-run-time))
+(declaim (inline system-internal-real-time))
 
 (let ((epoch 0))
   (declare (unsigned-byte epoch))
   ;; FIXME: For optimization ideas see the unix implementation.
   (defun reinit-internal-real-time ()
     (setf epoch 0
-          epoch (system-internal-real-time)))
+          epoch (get-internal-real-time)))
   (defun get-internal-real-time ()
     (- (with-alien ((system-time filetime))
          (syscall (("GetSystemTimeAsFileTime" 4) void (* filetime))