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