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