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...