anchor.diff:  				(handle-winsock-error)
   				(progn ,pointer-result ,@body)))))
   	
  -(defvar *sockets-started* t ; WinSock is initialised by the Lisp kenel
  +(defvar *sockets-started* t ; WinSock is initialised by the new beta Lisp kenel
   	"Set to T when START-SOCKETS is called.")
   
   (defun start-sockets ()
  
positive.code: 		"WITH-SOCKETS-STARTED"
                          "*IPV6*"
                          "IPV6-INSTALLED-P"
                          "HOST-TO-IPADDR"
  		"IPADDR-TO-NAME"
  		"IPADDR-TO-DOTTED"
  		"BASE-SOCKET"
  
negative.code:             (setf (socket-port s) (getf (c-to-addr local) :port)))))
  
  (defmethod initialize-instance ((s client-socket) &key host port &allow-other-keys)
      (call-next-method)
      (let (lsocs)
          (unwind-protect
              (dolist (addr (host-to-ipaddr host :port port :all t) (error "No response from ~a at port ~a." host port))
                  (let* ((fam (getf addr :family)) (soc (car (find fam lsocs :key #'cadr))))
                      (unless soc (setq soc (caar (push (list (with-invalid-socket-check () (socket (symbol-value fam) (symbol-value (socket-type s)) 0)) fam) lsocs))))
                      (when (zerop (connect soc (addr-to-c addr) *addr-size*)) (setf (socket-host-ipaddr s) addr (socket-descriptor s) soc) (return))))
              (mapc #'(lambda (x) (unless (eq (socket-descriptor s) (car x)) (closesocket (car x)))) lsocs))))
  
  (defmethod initialize-instance ((s server-socket) &key host port &allow-other-keys)
      (call-next-method)
      (let* ((addr (host-to-ipaddr host :port port))
               (type (socket-type s))
               (soc (with-invalid-socket-check () (socket (symbol-value (getf addr :family)) (symbol-value type) 0))))
          (setf (socket-host-ipaddr s) addr (socket-descriptor s) soc)
          (with-socket-error-check () (bind soc (addr-to-c addr) *addr-size*))
          (when (eq type 'sock_stream) (with-socket-error-check () (winsock::listen soc SOMAXCONN)))))
  
  (defmethod initialize-instance :after ((s proxy-socket-mixin) &key real-host real-port proxy &allow-other-keys)
  	(proxy-server-connect proxy s real-host real-port)
  