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
......@@ -516,7 +516,7 @@ and NIL NAME and TYPE components" ;;; what about VERSION???
#+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))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment