X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fsockets.lisp;h=6cff161b583e0909a86d891b2fc0db9215c928f3;hb=c03ebb54770cfa613d4b706a80e5be231786a5d0;hp=c010811f5dc81275e4f3f6cb1c0ac49a7abd9bb9;hpb=2365c1b81d99c8e8e34665052f5b47be5cd6cd74;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp
index c010811..6cff161 100644
--- a/contrib/sb-bsd-sockets/sockets.lisp
+++ b/contrib/sb-bsd-sockets/sockets.lisp
@@ -4,6 +4,11 @@
 ;;;; is deferred to inet.lisp, unix.lisp, etc
 
 (eval-when (:load-toplevel :compile-toplevel :execute)
+
+#+win32 
+(defvar *wsa-startup-call*
+  (sockint::wsa-startup (sockint::make-wsa-version 2 2)))
+
 (defclass socket ()
   ((file-descriptor :initarg :descriptor
                     :reader socket-file-descriptor)