From: Juho Snellman <jsnell@iki.fi>
Date: Sun, 6 May 2007 22:19:14 +0000 (+0000)
Subject: 1.0.5.40: probably fix win32 build
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8cb20ebfcf46c5b1dfb037676fe199ec25d59faf;p=sbcl.git

1.0.5.40: probably fix win32 build

         * sb!unix::micro-seconds-per-internal-time-unit was defined in a
           #-win32 block
         * Reported by Yaroslav Kavenchuk
---

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index d6ac73a..4c2bc79 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -987,13 +987,14 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
             (return pathname)
             (push pathname previous-pathnames))))
 
+
+(defconstant micro-seconds-per-internal-time-unit
+  (/ 1000000 sb!xc:internal-time-units-per-second))
+
 ;;; UNIX specific code, that has been cleanly separated from the
 ;;; Windows build.
 #!-win32
 (progn
-  (defconstant micro-seconds-per-internal-time-unit
-    (/ 1000000 sb!xc:internal-time-units-per-second))
-
   (declaim (inline system-internal-run-time
                    system-real-time-values))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 825944a..fca68a6 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.5.39"
+"1.0.5.40"