net.sockets/config.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Special variable definitions.
   4 ;;;
   5
   6 (in-package :net.sockets)
   7
   8 (defvar *ipv6*
   9   (handler-case (%socket af-inet6 sock-stream ipproto-ip)
  10     (nix:eafnosupport () nil)
  11     (:no-error (ret) (declare (ignore ret)) t))
  12   "Specifies the default behaviour with respect to IPv6:
  13 - nil   : Only IPv4 addresses are used.
  14 - :ipv6 : Only IPv6 addresses are used.
  15 - t     : If both IPv4 and IPv6 addresses are found they are returned in the best order possible (see RFC 3484).
  16 Default value is T.")
  17
  18 (deftype *ipv6*-type ()
  19   '(member t nil :ipv6))
  20
  21 (defconstant +max-backlog-size+ somaxconn
  22   "Maximum length of the pending connections queue (hard limit).")
  23
  24 (defvar *default-backlog-size* 5
  25   "Default length of the pending connections queue (soft limit).")
  26
  27 (defvar *default-linger-seconds* 15
  28   "Default linger timeout when enabling SO_LINGER option on a socket.")