;;; then the stuff we're looking for
((:integer af-inet "AF_INET" "IP Protocol family")
- (:integer af-unspec "AF_UNSPEC" "Unspecified.")
-#-solaris (:integer af-local "AF_LOCAL" "Local to host (pipes and file-domain).")
- (:integer af-unix "AF_UNIX" "Old BSD name for af-local. ")
-#-(or solaris freebsd) (:integer af-file "AF_FILE" "POSIX name for af-local. ")
-#+linux (:integer af-inet6 "AF_INET6" "IP version 6. ")
-#+linux (:integer af-route "AF_NETLINK" "Alias to emulate 4.4BSD ")
-
+ (: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).")
+ #+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"
"Send periodic keepalives: if peer does not respond, we get SIGPIPE")
(:integer so-oobinline "SO_OOBINLINE"
"Put out-of-band data into the normal input queue when received")
- (:integer so-no-check 11)
-#+linux (:integer so-priority "SO_PRIORITY")
+ (:integer so-no-check "SO_NO_CHECK")
+#+linux (:integer so-priority "SO_PRIORITY")
(:integer so-linger "SO_LINGER"
"For reliable streams, pause a while on closing when unsent messages are queued")
#+linux (:integer so-bsdcompat "SO_BSDCOMPAT")
(addr (* t))
(len integer)
(af integer)))
- (:structure hostent ("struct hostent"
- ((* t) name "char *" "h_name")
- (integer length "int" "h_length")))
-
(:function setsockopt ("setsockopt" integer
(socket integer)
(level integer)