X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fconstants.lisp;h=de0e2e8f8733165854e621c3e34d5edd17c619f4;hb=HEAD;hp=eeabd11492db5df1c26bf57ddd38b6c0e0494ab6;hpb=3de7cda498fbbabee0de9f6bd0925f2b6dc608a3;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp
index eeabd11..de0e2e8 100644
--- a/contrib/sb-bsd-sockets/constants.lisp
+++ b/contrib/sb-bsd-sockets/constants.lisp
@@ -67,6 +67,12 @@
  #+linux (:integer so-bindtodevice "SO_BINDTODEVICE")
  (:integer ifnamsiz "IFNAMSIZ")
 
+;; socket shutdown flags
+(:integer SHUT_RD "SHUT_RD")
+(:integer SHUT_WR "SHUT_WR")
+(:integer SHUT_RDWR "SHUT_RDWR")
+
+;; errors
  (:integer EADDRINUSE "EADDRINUSE")
  (:integer EAGAIN "EAGAIN")
  (:integer EBADF "EBADF")
@@ -214,6 +220,8 @@
                     (addrlen socklen-t)))
  (:function close ("close" int
                    (fd int)))
+ (:function shutdown ("shutdown" int
+                      (fd int) (how int)))
  (:function recvfrom ("recvfrom" ssize-t
                                  (socket int)
                                  (buf (* t))
@@ -279,8 +287,8 @@
                        #+darwin (integer addrlen "socklen_t" "ai_addrlen")
                        #-darwin (integer addrlen "size_t" "ai_addrlen")
                        ((* sockaddr-in) addr "struct sockaddr*" "ai_addr")
-                       (c-string canonname "char *" "ai_canonname")
-                       ((* t) next "struct addrinfo*" "ai_next")))
+                       (c-string-pointer canonname "char *" "ai_canonname")
+                       ((* (struct addrinfo)) next "struct addrinfo*" "ai_next")))
 
  #+sb-bsd-sockets-addrinfo
  (:function getaddrinfo ("getaddrinfo"