anchor.diff:  
   (defun %make-internet-stream-active-socket (args family ef)
     (destructuring-bind (&key keepalive nodelay (reuse-address t)
  -                            (local-host +default-host+) (local-port 0)
  +                            local-host local-port
                               (remote-host +default-host+) (remote-port 0))
         args
       (%%make-internet-stream-active-socket family ef keepalive nodelay reuse-address
  
positive.code:   (with-guard-again-non-list-args-and-destructuring-bind-errors
        form args
      (destructuring-bind (&key broadcast interface (reuse-address t)
                                (local-host +default-host+) (local-port 0)
                                (remote-host +default-host+) (remote-port 0))
          (cdr args)
        `(%%make-internet-datagram-socket ,family ,ef ,broadcast ,interface ,reuse-address
  
negative.code: 
  (defun %make-internet-datagram-socket (args family ef)
    (destructuring-bind (&key broadcast interface (reuse-address t)
                              local-host local-port
                              (remote-host +default-host+) (remote-port 0))
        args
      (%%make-internet-datagram-socket family ef broadcast interface reuse-address
  