anchor.diff:  
   #+(and sbcl win32)
   (eval-when (:compile-toplevel)
  -  (defconstant +wait-failed+ -1) ; #xffffffff
  -  (defconstant +wait-object-0+ 0)
  -  (defconstant +wait-timeout+ 258))
  +  (defconstant +wsa-wait-failed+ #xffffffff)
  +  (defconstant +wsa-wait-event-0+ 0)
  +  (defconstant +wsa-wait-timeout+ 258))
   
   #+(and sbcl win32)
   (progn
  
positive.code:   (defconstant fionread 1074030207)
  
    (sb-alien:define-alien-type ws-socket sb-alien:unsigned-int)
  
    (sb-alien:define-alien-type nil
      (sb-alien:struct wsa-network-events
  
negative.code: #+ecl
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (require :sockets))
  
  #+sbcl
  (progn
  