anchor.diff:           ;;###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
  +    (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:bind socket (host-to-vector-quad (or local-host *wildcard-host*))
  -                           (or local-port *auto-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))
  
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: 
  #+ecl
  (progn
  
    #-:wsock
    (ffi:clines
     "#include <errno.h>"
  