From bcc213ac52a30b4401f6ef29456a54329c44ba37 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 5 Jul 2005 18:21:13 +0000
Subject: [PATCH] Oops.

o The support for Unix uname needs to be conditionalized for solaris,
  darwin, and freebsd.
o Add support for freebsd (from Fred Gilham).
---
 code/unix.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/code/unix.lisp b/code/unix.lisp
index a37198639..b577af7f2 100644
--- a/code/unix.lisp
+++ b/code/unix.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.104 2005/06/23 13:33:55 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.105 2005/07/05 18:21:13 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3301,11 +3301,15 @@
 	 :shell (string (cast (slot result 'pw-shell) c-call:c-string)))))))
 
 ;; From sys/utsname.h
+#+(or solaris darwin freebsd)
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defconstant +sys-namelen+
     #+solaris 257
-    #+darwin 256))
+    #+darwin 256
+    #+freebsd 32))
 
+#+(or solaris darwin freebsd)
+(progn
 (def-alien-type nil
     (struct utsname
 	    (sysname (array char #.+sys-namelen+))
@@ -3329,5 +3333,6 @@
 		(cast (slot names 'release) c-string)
 		(cast (slot names 'version) c-string)
 		(cast (slot names 'machine) c-string))))))
+)
 
 ;; EOF
-- 
GitLab