anchor.diff:                                             local-host local-port backlog)))
   
   (define-compiler-macro %make-internet-stream-passive-socket (&whole form args family ef)
  -  (if (symbolp args)
  -      form
  -      (handler-case
  -          (destructuring-bind (&key interface (reuse-address t)
  -                                    (local-host +default-host+) (local-port 0)
  -                                    (backlog *default-backlog-size*))
  -              (cdr args)
  -            `(%%make-internet-stream-passive-socket ,family ,ef ,interface ,reuse-address
  -                                                    ,local-host ,local-port ,backlog))
  -        (error (err) `(error ,err)))))
  +  (with-guard-again-non-list-args-and-destructuring-bind-errors
  +      form args
  +    (destructuring-bind (&key interface (reuse-address t)
  +                              (local-host +default-host+) (local-port 0)
  +                              (backlog *default-backlog-size*))
  +        (cdr args)
  +      `(%%make-internet-stream-passive-socket ,family ,ef ,interface ,reuse-address
  +                                              ,local-host ,local-port ,backlog))))
    
   ;;; Local Stream Active Socket creation
   
   (defun %%make-local-stream-active-socket (family ef local-filename remote-filename)
  -  (%with-close-on-error (socket (create-socket family :stream :active ef))
  +  (with-close-on-error (socket (create-socket family :stream :active ef))
       (when local-filename
         (bind-address socket (ensure-address local-filename :local)))
       (when remote-filename
  
positive.code:                                              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 :stream :active ef))
        (when keepalive (set-socket-option socket :keep-alive :value t))
        (when nodelay (set-socket-option socket :tcp-nodelay :value t))
        (when local-host
  
negative.code:     (%%make-local-datagram-socket family ef local-filename remote-filename)))
  
  (define-compiler-macro %make-local-datagram-socket (&whole form args family ef)
    (with-guard-again-non-list-args-and-destructuring-bind-errors
        form args
      (destructuring-bind (&key local-filename remote-filename)
          (cdr args)
        `(%%make-local-datagram-socket ,family ,ef ,local-filename ,remote-filename))))
  
  ;;; MAKE-SOCKET
  