X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=4c2bc79d324dfbcb6ffd18e86b6a03d91b8097bd;hb=cf0b72cd4052a09b9a305081524bd44e2948c1e5;hp=d6ac73a336f2a0c1086c8d3f3d981e6a7950b1c7;hpb=fe962ba01d267b92f638c8f0d19be41054219f04;p=sbcl.git

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