From 8ef50d307118d362d7f22804e5cd3825f4ccdcac Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 7 Jul 2005 14:02:12 +0000
Subject: [PATCH] Add support for netbsd for unix-uname.  From Robert
 Swindells.

---
 code/unix.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/code/unix.lisp b/code/unix.lisp
index b577af7f2..87911b084 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.105 2005/07/05 18:21:13 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.106 2005/07/07 14:02:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3301,14 +3301,15 @@
 	 :shell (string (cast (slot result 'pw-shell) c-call:c-string)))))))
 
 ;; From sys/utsname.h
-#+(or solaris darwin freebsd)
+#+(or solaris darwin freebsd netbsd)
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defconstant +sys-namelen+
     #+solaris 257
     #+darwin 256
-    #+freebsd 32))
+    #+freebsd 32
+    #+netbsd 256))
 
-#+(or solaris darwin freebsd)
+#+(or solaris darwin freebsd netbsd)
 (progn
 (def-alien-type nil
     (struct utsname
-- 
GitLab