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	30 Jun 2010 06:03:08 -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	30 Jun 2010 06:03: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	30 Jun 2010 06:03:14 -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	30 Jun 2010 06:03:14 -0000
@@ -55,6 +55,12 @@
 }
 
 cl_object
+si_getuid(void)
+{
+	@(return ecl_make_integer(getuid()));
+}
+
+cl_object
 si_make_pipe()
 {
 	cl_object output;
Index: src/h/external.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/h/external.h,v
retrieving revision 1.395
diff -u -r1.395 external.h
--- src/h/external.h	19 Jun 2010 22:31:14 -0000	1.395
+++ src/h/external.h	30 Jun 2010 06:03:18 -0000
@@ -1735,6 +1735,7 @@
 extern ECL_API cl_object si_file_kind(cl_object pathname, cl_object follow_links);
 extern ECL_API cl_object si_getcwd _ARGS((cl_narg narg, ...));
 extern ECL_API cl_object si_getpid(void);
+extern ECL_API cl_object si_getuid(void);
 extern ECL_API cl_object si_chdir _ARGS((cl_narg narg, cl_object directory, ...));
 extern ECL_API cl_object si_mkdir(cl_object directory, cl_object mode);
 extern ECL_API cl_object cl_directory _ARGS((cl_narg narg, cl_object directory, ...));