From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sat, 7 Apr 2007 09:38:47 +0000 (+0000)
Subject: 1.0.4.38: unbreak win32 build, again
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=daaff592d224c1a66d079480c02c9c6dc9e11ab2;p=sbcl.git

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