From 43932666128c3cd4b882948578bff4bc68164119 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 24 Jul 2011 01:17:52 +0200 Subject: [PATCH] Remove duplicate definitions of socket option constants --- src/sockets/grovel.lisp | 16 +--------------- src/sockets/socket-options.lisp | 2 +- 2 files changed, 2 insertions(+), 16 deletions(-) diff --git a/src/sockets/grovel.lisp b/src/sockets/grovel.lisp index 327109a..866f2ec 100644 --- a/src/sockets/grovel.lisp +++ b/src/sockets/grovel.lisp @@ -198,7 +198,7 @@ (constant (tcp-nopush "TCP_NOPUSH") :optional t) ; freebsd (constant (tcp-quickack "TCP_QUICKACK") :optional t) ; linux (constant (tcp-syncnt "TCP_SYNCNT") :optional t) ; linux -(constant (tcp-window "TCP_WINDOW_CLAMP") :optional t) ; linux +(constant (tcp-window-clamp "TCP_WINDOW_CLAMP") :optional t) ; linux ;; IP options (constant (ip-hdrincl "IP_HDRINCL") :optional t) @@ -347,20 +347,6 @@ ;;;; from netinet/tcp.h -(constant (tcp-nodelay "TCP_NODELAY")) -(constant (tcp-maxseg "TCP_MAXSEG")) -#+linux -(constant (tcp-cork "TCP_CORK")) -(constant (tcp-keepidle "TCP_KEEPIDLE") :optional t) -(constant (tcp-keepintvl "TCP_KEEPINTVL") :optional t) -(constant (tcp-keepcnt "TCP_KEEPCNT") :optional t) -(constant (tcp-syncnt "TCP_SYNCNT") :optional t) -(constant (tcp-linger2 "TCP_LINGER2") :optional t) -(constant (tcp-defer-accept "TCP_DEFER_ACCEPT") :optional t) -(constant (tcp-window-clamp "TCP_WINDOW_CLAMP") :optional t) -#-darwin (constant (tcp-info "TCP_INFO")) -(constant (tcp-quickack "TCP_QUICKACK") :optional t) - #+linux (cenum connstates (:tcp-established "TCP_ESTABLISHED") diff --git a/src/sockets/socket-options.lisp b/src/sockets/socket-options.lisp index 293cd57..9313a77 100644 --- a/src/sockets/socket-options.lisp +++ b/src/sockets/socket-options.lisp @@ -235,7 +235,7 @@ ;; (define-socket-option listen-queue-limit :get-and-set et:so-listenqlimit et:sol-socket :int :freebsd) ;; (define-socket-option listen-queue-length :get-and-set et:so-listenqlen et:sol-socket :int :freebsd) ;; (define-socket-option listen-incomplete-queue-length :get-and-set et:so-listenincqlen et:sol-socket :int :freebsd) - + ;;; TCP Options -- 2.11.4.GIT