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