1.0.4.38: unbreak win32 build, again

 * Thanks to Yaroslav Kavenchuk.

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

diff --git a/version.lisp-expr b/version.lisp-expr
index 3aca174..8c8ff16 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.4.37"
+"1.0.4.38"