anchor.diff:                                            local-host local-port remote-host remote-port)))
   
   (define-compiler-macro %make-internet-stream-active-socket (&whole form args family ef)
  -  (if (symbolp args)
  -      form
  -      (handler-case
  -          (destructuring-bind (&key keepalive nodelay (reuse-address t)
  -                                    (local-host +default-host+) (local-port 0)
  -                                    (remote-host +default-host+) (remote-port 0))
  -              (cdr args)
  -            `(%%make-internet-stream-active-socket ,family ,ef ,keepalive ,nodelay ,reuse-address
  -                                                   ,local-host ,local-port ,remote-host ,remote-port))
  -        (error (err) `(error ,err)))))
  +  (with-guard-again-non-list-args-and-destructuring-bind-errors
  +      form args
  +    (destructuring-bind (&key keepalive nodelay (reuse-address t)
  +                              (local-host +default-host+) (local-port 0)
  +                              (remote-host +default-host+) (remote-port 0))
  +        (cdr args)
  +      `(%%make-internet-stream-active-socket ,family ,ef ,keepalive ,nodelay ,reuse-address
  +                                             ,local-host ,local-port ,remote-host ,remote-port))))
    
   ;;; Internet Stream Passive Socket creation
  
positive.code:        (unwind-protect
              (multiple-value-prog1 (locally ,@body ,var) (setf ,errorp nil))
           (when (and ,var ,errorp) (close ,var :abort t))))))
  
  (defun convert-or-lookup-inet-address (address &optional (ipv6 *ipv6*))
    "If ADDRESS is an inet-address designator, it is converted, if
  
negative.code:                                            local-host local-port backlog)))
  
  (define-compiler-macro %make-internet-stream-passive-socket (&whole form args family ef)
    (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))
      (when local-filename
        (bind-address socket (ensure-address local-filename :local)))
      (when remote-filename
  