X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwin32-os.lisp;h=b5489051497f6240fb8fbec2cdb3a09c5da17956;hb=7f1e94ae961a198e00daf281eb1dc858e5b2dcc7;hp=f485d714d1b09d1ff87cd1690b87f9f926293e96;hpb=94284af2ff059b0d83d891fb9903f182db6751af;p=sbcl.git

diff --git a/src/code/win32-os.lisp b/src/code/win32-os.lisp
index f485d71..b548905 100644
--- a/src/code/win32-os.lisp
+++ b/src/code/win32-os.lisp
@@ -26,18 +26,18 @@
   if not available."
   (or *software-version*
       (setf *software-version*
-	    (multiple-value-bind (MajorVersion MinorVersion BuildNumber PlatformId CSDVersion)
-		(sb!win32:get-version-ex)
-	      (declare (ignore PlatformId))
-	      (format nil (if (zerop (length CSDVersion)) "~A.~A.~A" "~A.~A.~A (~A)")
-		      MajorVersion MinorVersion BuildNumber CSDVersion)))))
+            (multiple-value-bind
+                  (major-version minor-version build-number platform-id csd-version)
+                (sb!win32:get-version-ex)
+              (declare (ignore platform-id))
+              (format nil (if (zerop (length csd-version))
+                              "~A.~A.~A"
+                              "~A.~A.~A (~A)")
+                      major-version minor-version build-number csd-version)))))
 
 ;;; Return user time, system time, and number of page faults.
 (defun get-system-info ()
-  ;; FIXME: number of page faults is always zero
-  (multiple-value-bind (creation-time exit-time kernel-time user-time)
-      (sb!win32:get-process-times)
-    (declare (ignore creation-time exit-time))
+  (sb!win32:with-process-times (creation-time exit-time kernel-time user-time)
     (values (floor user-time 10) (floor kernel-time 10) 0)))
 
 ;;; Return the system page size.
@@ -46,3 +46,7 @@
   ;; FIXME: Or we could just get rid of this, since the uses of it look
   ;; disposable.
   4096)
+
+;;; support for CL:MACHINE-VERSION defined OAOO elsewhere
+(defun get-machine-version ()
+  nil)