[cmucl-cvs] CMUCL commit: src/code (unix.lisp)

[Raymond Toy]

    Date: Thursday, January 6, 2011 @ 22:46:43
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: unix.lisp

Fix typo in unix-uname.  We want to use "uname" everywhere except on
freebsd and solaris/x86.


-----------+
 unix.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/unix.lisp
diff -u src/code/unix.lisp:1.133 src/code/unix.lisp:1.134
--- src/code/unix.lisp:1.133	Tue Dec 21 21:15:39 2010
+++ src/code/unix.lisp	Thu Jan  6 22:46:42 2011
@@ -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.133 2010-12-22 02:15:39 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.134 2011-01-07 03:46:42 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3391,7 +3391,7 @@
 
 (defun unix-uname ()
   (with-alien ((names (struct utsname)))
-    (syscall* (#-(or freebsd solaris) "uname"
+    (syscall* (#-(or freebsd (and x86 solaris)) "uname"
 	       #+(and x86 solaris) "nuname"	; See /usr/include/sys/utsname.h
 	       #+freebsd "__xuname" #+freebsd int
 	       (* (struct utsname)))