From 328f44de4163ceb68eacc0f573c5e4a21bbddbfb Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Mon, 7 Aug 2000 13:55:17 +0000 Subject: [PATCH] Add definitions of the constants sol-socket and so-reuseaddr for FreeBSD; from Martin and Paul. --- code/internet.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/internet.lisp b/code/internet.lisp index 23bd3065f..eb0f0ace5 100644 --- a/code/internet.lisp +++ b/code/internet.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/internet.lisp,v 1.23 2000/08/04 00:33:53 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.24 2000/08/07 13:55:17 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -280,10 +280,10 @@ struct in_addr { socket))) ;;; Socket levels. -(defconstant sol-socket #+linux 1 #+solaris #xffff) +(defconstant sol-socket #+linux 1 #+(or solaris freebsd) #xffff) ;;; Socket options. -(defconstant so-reuseaddr #+linux 2 #+solaris 4) +(defconstant so-reuseaddr #+linux 2 #+(or solaris freebsd) 4) (defun get-socket-option (socket level optname) "Get an integer value socket option." -- GitLab