X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fconstants.lisp;h=22f6793e8580de8346763e4058eb8c91c1ea6039;hb=4bc6b918bb99e8dcd17bbe6479a06e52b2d04a6c;hp=e8004f442266bf5a93fddb6425f5bb755b0e3ae0;hpb=ecae2f9323086c64d026d4ce719590907f486c63;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp
index e8004f4..22f6793 100644
--- a/contrib/sb-bsd-sockets/constants.lisp
+++ b/contrib/sb-bsd-sockets/constants.lisp
@@ -94,6 +94,9 @@
  (:integer msg-trunc "MSG_TRUNC")
  (:integer msg-waitall "MSG_WAITALL")
 
+ ;; for socket-receive
+ (:type socklen-t "socklen_t")
+
  #|
  ;;; stat is nothing to do with sockets, but I keep it around for testing
  ;;; the ffi glue
@@ -166,7 +169,7 @@
 				 (len integer)
 				 (flags integer)
 				 (sockaddr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
-				 (socklen (* integer))))
+				 (socklen (* socklen-t))))
  (:function gethostbyname ("gethostbyname" (* hostent) (name c-string)))
  (:function gethostbyaddr ("gethostbyaddr" (* hostent)
 					   (addr (* t))