[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/code (unix.lisp)
Raymond Toy
rtoy at common-lisp.net
Fri Dec 17 03:04:45 UTC 2010
Date: Thursday, December 16, 2010 @ 22:04:45
Author: rtoy
Path: /project/cmucl/cvsroot/src/code
Tag: cross-sol-x86-branch
Modified: unix.lisp
On Solaris/x86, the uname function is really called nuname.
-----------+
unix.lisp | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
Index: src/code/unix.lisp
diff -u src/code/unix.lisp:1.131 src/code/unix.lisp:1.131.4.1
--- src/code/unix.lisp:1.131 Fri Nov 12 11:53:17 2010
+++ src/code/unix.lisp Thu Dec 16 22:04:45 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.131 2010-11-12 16:53:17 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.131.4.1 2010-12-17 03:04:45 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -3391,7 +3391,8 @@
(defun unix-uname ()
(with-alien ((names (struct utsname)))
- (syscall* (#-freebsd "uname"
+ (syscall* (#-(or freebsd solaris) "uname"
+ #+solaris "nuname" ; See /usr/include/sys/utsname.h
#+freebsd "__xuname" #+freebsd int
(* (struct utsname)))
(values (cast (slot names 'sysname) c-string)
More information about the cmucl-cvs
mailing list