diff --git a/src/contrib/unix/unix.lisp b/src/contrib/unix/unix.lisp index 19dca15cbf1b60e942b845fa3580768ede4f5aa4..630a9a91d27d49278bc42e886a785924cd175d1b 100644 --- a/src/contrib/unix/unix.lisp +++ b/src/contrib/unix/unix.lisp @@ -1181,28 +1181,6 @@ :dir (string (cast (slot result 'pw-dir) c-call:c-string)) :shell (string (cast (slot result 'pw-shell) c-call:c-string))))))) -(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" - #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h - #+freebsd "__xuname" #+freebsd int - (* (struct utsname))) - (values (cast (slot names 'sysname) c-string) - (cast (slot names 'nodename) c-string) - (cast (slot names 'release) c-string) - (cast (slot names 'version) c-string) - (cast (slot names 'machine) c-string)) - #+freebsd 256 - (addr names)))) - #+(and solaris svr4) (export '(unix-sysinfo si-sysname si-hostname si-release si-version si-machine