Index: contrib/asdf/asdf.lisp
===================================================================
RCS file: /cvsroot/ecls/ecl/contrib/asdf/asdf.lisp,v
retrieving revision 1.24
diff -u -r1.24 asdf.lisp
--- contrib/asdf/asdf.lisp	9 Jun 2010 21:05:50 -0000	1.24
+++ contrib/asdf/asdf.lisp	29 Jun 2010 20:34:04 -0000
@@ -717,7 +717,7 @@
 #+clisp (defun get-uid () (posix:uid))
 #+sbcl (defun get-uid () (sb-unix:unix-getuid))
 #+cmu (defun get-uid () (unix:unix-getuid))
-#+ecl (defun get-uid () (ffi:c-inline () () :int "getuid()" :one-liner t))
+#+ecl (defun get-uid () (si:getuid))
 #+allegro (defun get-uid () (excl.osi:getuid))
 #-(or cmu sbcl clisp allegro ecl)
 (defun get-uid ()
Index: src/c/symbols_list.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/symbols_list.h,v
retrieving revision 1.275
diff -u -r1.275 symbols_list.h
--- src/c/symbols_list.h	28 Jun 2010 19:41:11 -0000	1.275
+++ src/c/symbols_list.h	29 Jun 2010 20:34:13 -0000
@@ -1120,6 +1120,7 @@
 {EXT_ "GETENV", SI_ORDINARY, si_getenv, 1, OBJNULL},
 {EXT_ "GETCWD", SI_ORDINARY, si_getcwd, -1, OBJNULL},
 {SYS_ "GETPID", SI_ORDINARY, si_getpid, 0, OBJNULL},
+{SYS_ "GETUID", SI_ORDINARY, si_getuid, 0, OBJNULL},
 {SYS_ "HASH-SET", SI_ORDINARY, si_hash_set, 3, OBJNULL},
 {SYS_ "HASH-TABLE-ITERATOR", SI_ORDINARY, si_hash_table_iterator, 1, OBJNULL},
 {SYS_ "IHS-BDS", SI_ORDINARY, si_ihs_bds, 1, OBJNULL},
Index: src/c/symbols_list2.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/symbols_list2.h,v
retrieving revision 1.153
diff -u -r1.153 symbols_list2.h
--- src/c/symbols_list2.h	28 Jun 2010 19:41:11 -0000	1.153
+++ src/c/symbols_list2.h	29 Jun 2010 20:34:16 -0000
@@ -1120,6 +1120,7 @@
 {EXT_ "GETENV","si_getenv"},
 {EXT_ "GETCWD","si_getcwd"},
 {SYS_ "GETPID","si_getpid"},
+{SYS_ "GETUID","si_getuid"},
 {SYS_ "HASH-SET","si_hash_set"},
 {SYS_ "HASH-TABLE-ITERATOR","si_hash_table_iterator"},
 {SYS_ "IHS-BDS","si_ihs_bds"},
Index: src/c/unixsys.d
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/unixsys.d,v
retrieving revision 1.61
diff -u -r1.61 unixsys.d
--- src/c/unixsys.d	5 Apr 2010 20:34:03 -0000	1.61
+++ src/c/unixsys.d	29 Jun 2010 20:34:17 -0000
@@ -55,6 +55,12 @@
 }
 
 cl_object
+si_getuid(void)
+{
+	@(return ecl_make_integer(getuid()));
+}
+
+cl_object
 si_make_pipe()
 {
 	cl_object output;