X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fconstants.lisp;h=c5d19a31fca3d969d9c1dba9053c59e3c5b94ba9;hb=607f3e366b0e5b5fb4606202a6a5f625c05c3838;hp=ab29f6641263ee70ad89d55b4439c29d293ab454;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp
index ab29f66..c5d19a3 100644
--- a/contrib/sb-bsd-sockets/constants.lisp
+++ b/contrib/sb-bsd-sockets/constants.lisp
@@ -12,12 +12,12 @@
 ((:integer af-inet "AF_INET" "IP Protocol family")
  (:integer af-unspec "AF_UNSPEC" "Unspecified")
  (:integer af-local
-	   #+(or sunos solaris) "AF_UNIX"
-	   #-(or sunos solaris) "AF_LOCAL"
-	   "Local to host (pipes and file-domain).")
+           #+(or sunos solaris) "AF_UNIX"
+           #-(or sunos solaris) "AF_LOCAL"
+           "Local to host (pipes and file-domain).")
  #+linux (:integer af-inet6 "AF_INET6"   "IP version 6")
  #+linux (:integer af-route "AF_NETLINK" "Alias to emulate 4.4BSD ")
- 
+
  (:integer sock-stream "SOCK_STREAM"
            "Sequenced, reliable, connection-based byte streams.")
  (:integer sock-dgram "SOCK_DGRAM"
@@ -60,7 +60,7 @@
  (:integer tcp-nodelay "TCP_NODELAY")
  #+linux (:integer so-bindtodevice "SO_BINDTODEVICE")
  (:integer ifnamsiz "IFNAMSIZ")
- 
+
  (:integer EADDRINUSE "EADDRINUSE")
  (:integer EAGAIN "EAGAIN")
  (:integer EBADF "EBADF")
@@ -75,6 +75,7 @@
  (:integer EPROTONOSUPPORT "EPROTONOSUPPORT")
  (:integer ESOCKTNOSUPPORT "ESOCKTNOSUPPORT")
  (:integer ENETUNREACH "ENETUNREACH")
+ (:integer ENOTCONN "ENOTCONN")
 
  (:integer NETDB-INTERNAL "NETDB_INTERNAL" "See errno.")
  (:integer NETDB-SUCCESS "NETDB_SUCCESS" "No problem.")
@@ -110,18 +111,18 @@
  (:structure protoent ("struct protoent"
                        (c-string-pointer name "char *" "p_name")
                        ((* (* t)) aliases "char **" "p_aliases")
-		       (integer proto "int" "p_proto")))
+                       (integer proto "int" "p_proto")))
  (:function getprotobyname ("getprotobyname" (* protoent)
-					     (name c-string)))
+                                             (name c-string)))
  (:integer inaddr-any "INADDR_ANY")
  (:structure in-addr ("struct in_addr"
-		      ((array (unsigned 8)) addr "u_int32_t" "s_addr")))
+                      ((array (unsigned 8)) addr "u_int32_t" "s_addr")))
  (:structure sockaddr-in ("struct sockaddr_in"
                           (integer family "sa_family_t" "sin_family")
-			  ;; These two could be in-port-t and
-			  ;; in-addr-t, but then we'd throw away the
-			  ;; convenience (and byte-order agnosticism)
-			  ;; of the old sb-grovel scheme.
+                          ;; These two could be in-port-t and
+                          ;; in-addr-t, but then we'd throw away the
+                          ;; convenience (and byte-order agnosticism)
+                          ;; of the old sb-grovel scheme.
                           ((array (unsigned 8)) port "u_int16_t" "sin_port")
                           ((array (unsigned 8)) addr "struct in_addr" "sin_addr")))
  (:structure sockaddr-un ("struct sockaddr_un"
@@ -160,21 +161,21 @@
                     (socket int)
                     (his-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
                     (addrlen int )))
- 
+
  (:function close ("close" int
                    (fd int)))
  (:function recvfrom ("recvfrom" int
-				 (socket int)
-				 (buf (* t))
-				 (len integer)
-				 (flags int)
-				 (sockaddr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
-				 (socklen (* socklen-t))))
+                                 (socket int)
+                                 (buf (* t))
+                                 (len integer)
+                                 (flags int)
+                                 (sockaddr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
+                                 (socklen (* socklen-t))))
  (:function gethostbyname ("gethostbyname" (* hostent) (name c-string)))
  (:function gethostbyaddr ("gethostbyaddr" (* hostent)
-					   (addr (* t))
-					   (len int)
-					   (af int)))
+                                           (addr (* t))
+                                           (len int)
+                                           (af int)))
  (:function setsockopt ("setsockopt" int
                         (socket int)
                         (level int)