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