sb-bsd-sockets: less SERVE-EVENT

[sbcl.git] / contrib / sb-bsd-sockets / win32-sockets.lisp

diff --git a/contrib/sb-bsd-sockets/win32-sockets.lisp b/contrib/sb-bsd-sockets/win32-sockets.lisp
index 5b20df5..7aa765a 100644 (file)
--- a/contrib/sb-bsd-sockets/win32-sockets.lisp
+++ b/contrib/sb-bsd-sockets/win32-sockets.lisp
@@ -68,8 +68,16 @@
 (defun make-wsa-version (major minor)
   (dpb minor (byte 8 8) major))
 
-(defvar *wsa-startup-call*
-  (wsa-startup (make-wsa-version 2 2)))
+(defvar *wsa-startup-call* nil)
+
+(defun call-wsa-startup ()
+  (setf *wsa-startup-call* (wsa-startup (make-wsa-version 2 2))))
+
+;;; Startup!
+(call-wsa-startup)
+
+;;; Ensure startup for saved cores as well.
+(push 'call-wsa-startup sb-ext:*init-hooks*)
 
 ;; not implemented on win32
 (defconstant af-local 0)