Skip to content
Snippets Groups Projects
Commit 8608d0b7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

On CLISP, use (posix:uid) instead of (LINUX:getuid). Thanks to Pascal Bourguignon.

parent cc017fb1
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment