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