Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
8608d0b7
Commit
8608d0b7
authored
Feb 08, 2010
by
Francois-Rene Rideau
Browse files
On CLISP, use (posix:uid) instead of (LINUX:getuid). Thanks to Pascal Bourguignon.
parent
cc017fb1
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
8608d0b7
...
...
@@ -516,7 +516,7 @@ and NIL NAME and TYPE components" ;;; what about VERSION???
#-
windows
(
progn
#+
clisp
(
defun
get-uid
()
(
linux:get
uid
))
#+
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
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment