Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl
Commits: 56dac608 by Raymond Toy at 2015-05-13T21:44:15Z unix-uname needs struct utsname.
- - - - -
1 changed file:
- src/code/unix.lisp
Changes:
===================================== src/code/unix.lisp ===================================== --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -2423,6 +2423,14 @@ ) ) )
+(def-alien-type nil + (struct utsname + (sysname (array char #+svr4 257 #+bsd 256)) + (nodename (array char #+svr4 257 #+bsd 256)) + (release (array char #+svr4 257 #+bsd 256)) + (version (array char #+svr4 257 #+bsd 256)) + (machine (array char #+svr4 257 #+bsd 256)))) + (defun unix-uname () (with-alien ((names (struct utsname))) (syscall* (#-(or freebsd (and x86 solaris)) "uname"
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/56dac6089a2f3d4e9b63c9a3b5...