From a08b9be0e5afc2e7fe969072a3a1f23d8d781937 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 16 May 2015 22:16:15 -0700 Subject: [PATCH] Remove utsname and unix-uname. --- src/contrib/unix/unix.lisp | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/src/contrib/unix/unix.lisp b/src/contrib/unix/unix.lisp index 19dca15cb..630a9a91d 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 -- GitLab