[cmucl/cmucl][rtoy-unix-core] unix-uname needs struct utsname.

[Raymond Toy]

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/56dac6089a2f3d4e9b63c9a3b5c3a6b2c5741a4d
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20150514/e97996a5/attachment.html>