anchor.diff:  
   ;;; Internet Datagram Socket creation
   
  -(defun %%make-internet-datagram-socket (family ef broadcast interface reuse-address
  +(defun %%init-internet-datagram-socket (socket broadcast interface reuse-address
                                           local-host local-port remote-host remote-port)
     (let ((local-port  (ensure-numerical-service local-port))
           (remote-port (ensure-numerical-service remote-port)))
  -    (with-close-on-error (socket (create-socket family :datagram :active ef))
  -      (when broadcast (setf (socket-option socket :broadcast) t))
  -      (when local-host
  -        (bind-address socket (ensure-hostname local-host)
  -                      :port local-port
  -                      :reuse-address reuse-address)
  -        (when interface
  -          (setf (socket-option socket :bind-to-device) interface)))
  -      (when (plusp remote-port)
  -        (connect socket (ensure-hostname remote-host)
  -                 :port remote-port)))))
  +    (when broadcast (setf (socket-option socket :broadcast) t))
  +    (when local-host
  +      (bind-address socket (ensure-hostname local-host)
  +                    :port local-port
  +                    :reuse-address reuse-address)
  +      (when interface
  +        (setf (socket-option socket :bind-to-device) interface)))
  +    (when (plusp remote-port)
  +      (connect socket (ensure-hostname remote-host)
  +               :port remote-port))))
  +
  +(declaim (inline %%make-internet-datagram-socket))
  +(defun %%make-internet-datagram-socket (family ef broadcast interface reuse-address
  +                                        local-host local-port remote-host remote-port)
  +  (with-close-on-error (socket (%create-internet-socket family :datagram :active ef))
  +    (%%init-internet-datagram-socket socket broadcast interface reuse-address
  +                                     local-host local-port remote-host remote-port)))
   
   (defun %make-internet-datagram-socket (args family ef)
     (destructuring-bind (&key broadcast interface (reuse-address t)
  
positive.code: 
  ;;; Local Datagram Socket creation
  
  (defun %%make-local-datagram-socket (family ef local-filename remote-filename)
    (with-close-on-error (socket (create-socket family :datagram :active ef))
      (when local-filename
        (bind-address socket (ensure-address local-filename :family :local)))
      (when remote-filename
        (connect socket (ensure-address remote-filename :family :local)))))
  
  (defun %make-local-datagram-socket (args family ef)
    (destructuring-bind (&key local-filename remote-filename)
  
negative.code: 
  ;;; Internet Stream Active Socket creation
  
  (defun %%init-internet-stream-active-socket (socket keepalive nodelay reuse-address
                                               local-host local-port remote-host remote-port)
    (let ((local-port  (ensure-numerical-service local-port))
          (remote-port (ensure-numerical-service remote-port)))
      (when keepalive (setf (socket-option socket :keep-alive) t))
      (when nodelay (setf (socket-option socket :tcp-nodelay) t))
      (when local-host
        (bind-address socket (ensure-hostname local-host)
                      :port local-port
                      :reuse-address reuse-address))
      (when (plusp remote-port)
        (connect socket (ensure-hostname remote-host)
                 :port remote-port))))
  
  (declaim (inline %%make-internet-stream-active-socket))
  (defun %%make-internet-stream-active-socket (family ef keepalive nodelay reuse-address
                                               local-host local-port remote-host remote-port
                                               input-buffer-size output-buffer-size)
    (with-close-on-error (socket (%create-internet-socket family :stream :active ef
                                                          :input-buffer-size input-buffer-size
                                                          :output-buffer-size output-buffer-size))
      (%%init-internet-stream-active-socket socket keepalive nodelay reuse-address
                                            local-host local-port remote-host remote-port)))
  
  (defun %make-internet-stream-active-socket (args family ef)
    (destructuring-bind (&key keepalive nodelay (reuse-address t)
  