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