From 5e94433586b7598f612ae5e8ef365cd1d014f45f Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 22 Jul 2010 22:48:45 +0200
Subject: [PATCH] si::getuid cannot be defined in Windows.

---
 src/c/unixsys.d | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index dfdfec469..35d218c0f 100755
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -57,7 +57,11 @@ si_getpid(void)
 cl_object
 si_getuid(void)
 {
+#if defined(_MSC_VER) || defined(__MINGW32__)
+        @(return MAKE_FIXNUM(0));
+#else
 	@(return ecl_make_integer(getuid()));
+#endif
 }
 
 cl_object