X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=contrib%2Fsb-bsd-sockets%2Fconstants.lisp;h=92c017e370e07223b605c83a1b90785575f3bc84;hb=1656e5415acddf6655569b8332e138c36640c08a;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..92c017e 100644
--- a/contrib/sb-bsd-sockets/constants.lisp
+++ b/contrib/sb-bsd-sockets/constants.lisp
@@ -279,7 +279,7 @@
                        #+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")
+                       (c-string-pointer canonname "char *" "ai_canonname")
                        ((* t) next "struct addrinfo*" "ai_next")))
 
  #+sb-bsd-sockets-addrinfo