anchor.diff:  
   #+ecl
   (progn
  +
     #-:wsock
     (ffi:clines
      "#include <errno.h>"
  
positive.code:   (ffi:clines
     "#define CONS(x, y) make_cons((x), (y))"
     "#define MAKE_INTEGER(x) make_integer((x))")
  
    (defun fd-setsize ()
      (ffi:c-inline () () :fixnum
  
negative.code:          ;;###FIXME: The above line probably needs an :external-format
           (usocket (make-stream-socket :stream stream :socket socket))
           (ip (host-to-vector-quad host)))
      (when (and nodelay-specified
                 (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay))
        (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay))
      (when (or local-host local-port)
        (sb-bsd-sockets:socket-bind socket
                                    (host-to-vector-quad
                                     (or local-host *wildcard-host*))
                                    (or local-port *auto-port*)))
      (with-mapped-conditions (usocket)
        (sb-bsd-sockets:socket-connect socket ip port))
      usocket))
  