sb-bsd-sockets: Do not build local sockets on win32

contrib/sb-bsd-sockets/defpackage.lisp

@@ -6,7 +6,7 @@
 
 (defpackage "SB-BSD-SOCKETS"
   (:export #:socket
-           #:local-socket #:local-abstract-socket
+           #-win32 #:local-socket #-win32 #:local-abstract-socket
            #:inet-socket #:inet6-socket
            #:make-inet-socket ; deprecated
 

contrib/sb-bsd-sockets/local.lisp

@@ -1,5 +1,8 @@
 (in-package :sb-bsd-sockets)
 
+
+;;;; Local domain sockets
+
 (defclass local-socket (socket)
   ((family :initform sockint::af-local))
   (:documentation
@@ -33,6 +36,9 @@ also known as unix-domain sockets."))
   (let ((name (sockint::sockaddr-un-path sockaddr)))
     (unless (zerop (length name)) name)))
 
+
+;;;; Local domain sockets in the abstract namespace
+
 (defclass local-abstract-socket (local-socket) ()
   (:documentation
    "Class representing local domain (AF_LOCAL) sockets with addresses

contrib/sb-bsd-sockets/sb-bsd-sockets.asd

@@ -28,7 +28,8 @@
    (:file "inet4"         :depends-on ("protocol" "sockets"))
    (:file "inet6"         :depends-on ("protocol" "sockets")
                           :if-feature (:not :win32))
-   (:file "local"         :depends-on ("protocol" "sockets"))
+   (:file "local"         :depends-on ("protocol" "sockets")
+                          :if-feature (:not :win32))
 
    (:file "name-service"  :depends-on ("protocol" "sockets"))
    (:file "misc"          :depends-on ("sockets"))

contrib/sb-bsd-sockets/win32-sockets.lisp

@@ -68,16 +68,9 @@
 (push 'call-wsa-startup sb-ext:*init-hooks*)
 
 ;; not implemented on win32
-(defconstant af-local 0)
 (defconstant msg-dontwait 0)
 (defconstant msg-trunc 0)
 (defconstant msg-eor 0)
 (defconstant msg-nosignal 0)
 (defconstant msg-waitall 0)
 (defconstant msg-eor 0)
-(defconstant size-of-sockaddr-un 0)
-(defun (setf sockaddr-un-family) (addr family) ())
-(defun (setf sockaddr-un-path) (addr family) ())
-(defun sockaddr-un-path (addr) ())
-(defun free-sockaddr-un (addr) ())
-(defun allocate-sockaddr-un () ())