anchor.diff:    (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
  
positive.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 nodelay-specified
        (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay))
      (when (or local-host local-port)
        (sb-bsd-sockets: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))
  
negative.code: 
  #+ecl
  (progn
  
    #-:wsock
    (ffi:clines
     "#include <errno.h>"
  