anchor.diff:  
   #+ecl
   (progn
  +
     #-:wsock
     (ffi:clines
      "#include <errno.h>"
  
positive.code:                        local-host local-port)
    (when deadline (unsupported 'deadline 'socket-connect))
    (when timeout (unsupported 'timeout 'socket-connect))
  
    (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket
                                  :type :stream :protocol :tcp))
  
negative.code:   (ffi:clines
     "#define CONS(x, y) make_cons((x), (y))"
     "#define MAKE_INTEGER(x) make_integer((x))")
  
    (defconstant sb-bsd-sockets::sockopt-tcp-nodelay (sockopt-tcp-nodelay))
    (export sb-bsd-sockets::sockopt-tcp-nodelay)
  
    (defun fd-setsize ()
      (ffi:c-inline () () :fixnum
  