From 8608d0b7edcb2ab70e29f99b0773884a652f651c Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Mon, 8 Feb 2010 10:37:28 -0500
Subject: [PATCH] On CLISP, use (posix:uid) instead of (LINUX:getuid). Thanks
 to Pascal Bourguignon.

---
 asdf.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/asdf.lisp b/asdf.lisp
index a6655c98..ca76297b 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -516,7 +516,7 @@ and NIL NAME and TYPE components" ;;; what about VERSION???
 
 #-windows
 (progn
-#+clisp (defun get-uid () (linux:getuid))
+#+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))
-- 
GitLab