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

Raymond Toy rtoy at common-lisp.net
Wed Dec 22 02:15:39 UTC 2010


    Date: Tuesday, December 21, 2010 @ 21:15:39
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: unix.lisp

Oops.  nuname is for Solaris/x86, not Solaris/sparc.


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


Index: src/code/unix.lisp
diff -u src/code/unix.lisp:1.132 src/code/unix.lisp:1.133
--- src/code/unix.lisp:1.132	Tue Dec 21 21:12:51 2010
+++ src/code/unix.lisp	Tue Dec 21 21:15:39 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.132 2010-12-22 02:12:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.133 2010-12-22 02:15:39 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3392,7 +3392,7 @@
 (defun unix-uname ()
   (with-alien ((names (struct utsname)))
     (syscall* (#-(or freebsd solaris) "uname"
-	       #+solaris "nuname"	; See /usr/include/sys/utsname.h
+	       #+(and x86 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