X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwin32.lisp;h=facc8c93ba82a9001e0b32c455b35a96b75c582c;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=c91d9aa81f230c0e90c96aa374a71f6ce6cf4f22;hpb=dc981e6c25bbc2abd48c8d48a424c6bd55e905bb;p=sbcl.git

diff --git a/src/code/win32.lisp b/src/code/win32.lisp
index c91d9aa..facc8c9 100644
--- 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))