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