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