[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