anchor.diff:        (bind-address socket (ensure-hostname local-host)
                       :port local-port
                       :reuse-address reuse-address)
  +      #+linux
         (when interface
           (setf (socket-option socket :bind-to-device) interface)))
       (when (plusp remote-port)
  
positive.code: 
  (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)))
      (when broadcast (setf (socket-option socket :broadcast) t))
  
negative.code: 
  (defun %%init-internet-stream-passive-socket (socket interface reuse-address
                                                local-host local-port backlog)
    #-linux (declare (ignore interface))
    (let ((local-port  (ensure-numerical-service local-port)))
      (when local-host
        #+linux
        (when interface
          (setf (socket-option socket :bind-to-device) interface))
        (bind-address socket (ensure-hostname local-host)
  