projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.3.16
[sbcl.git]
/
contrib
/
sb-bsd-sockets
/
constants.lisp
diff --git
a/contrib/sb-bsd-sockets/constants.lisp
b/contrib/sb-bsd-sockets/constants.lisp
index
e52aab1
..
e487966
100644
(file)
--- a/
contrib/sb-bsd-sockets/constants.lisp
+++ b/
contrib/sb-bsd-sockets/constants.lisp
@@
-10,12
+10,12
@@
;;; then the stuff we're looking for
((:integer af-inet "AF_INET" "IP Protocol family")
;;; then the stuff we're looking for
((:integer af-inet "AF_INET" "IP Protocol family")
- (:integer af-unspec "AF_UNSPEC" "Unspecified.")
+ (: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).")
(: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-inet6 "AF_INET6" "IP version 6")
#+linux (:integer af-route "AF_NETLINK" "Alias to emulate 4.4BSD ")
(:integer sock-stream "SOCK_STREAM"
#+linux (:integer af-route "AF_NETLINK" "Alias to emulate 4.4BSD ")
(:integer sock-stream "SOCK_STREAM"
@@
-167,10
+167,6
@@
(addr (* t))
(len integer)
(af integer)))
(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)
(:function setsockopt ("setsockopt" integer
(socket integer)
(level integer)