anchor.diff:                           :reuse-address reuse-address)
              (socket-listen socket :backlog backlog)))))))
   
  -(declaim (inline %make-local-stream-socket))
   (defun %make-local-stream-socket (args connect ef)
     (destructuring-bind (&key family local-filename remote-filename (backlog *default-backlog-size*))
         args
  
positive.code:         (connect socket (convert-or-lookup-inet-address remote-host)
                   :port remote-port)))))
  
  (declaim (inline %make-local-datagram-socket))
  (defun %make-local-datagram-socket (args ef)
    (destructuring-bind (&key family local-filename remote-filename) args
      (%with-close-on-error (socket (create-socket :family family :type :datagram
  
negative.code:       (let ((addresses (lookup-host address :ipv6 ipv6)))
          (values (car addresses) (cdr addresses)))))
  
  (defun %make-internet-stream-socket (args connect ef)
    (destructuring-bind (&key family local-host (local-port 0) remote-host (remote-port 0)
                              (backlog *default-backlog-size*) reuse-address keepalive nodelay)
  