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

diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp
index bb5bcbb..de0e2e8 100644
--- a/contrib/sb-bsd-sockets/constants.lisp
+++ b/contrib/sb-bsd-sockets/constants.lisp
@@ -288,7 +288,7 @@
                        #-darwin (integer addrlen "size_t" "ai_addrlen")
                        ((* sockaddr-in) addr "struct sockaddr*" "ai_addr")
                        (c-string-pointer canonname "char *" "ai_canonname")
-                       ((* t) next "struct addrinfo*" "ai_next")))
+                       ((* (struct addrinfo)) next "struct addrinfo*" "ai_next")))
 
  #+sb-bsd-sockets-addrinfo
  (:function getaddrinfo ("getaddrinfo"