anchor.diff:  (defun %%make-internet-stream-passive-socket (family ef interface reuse-address
                                                 local-host local-port backlog)
     (let ((local-port  (ensure-numerical-service local-port)))
  -    (%with-close-on-error (socket (create-socket family :stream :passive ef))
  +    (with-close-on-error (socket (create-socket family :stream :passive ef))
         (when local-host
           (when interface
             (set-socket-option socket :bind-to-device :value interface))
  
positive.code:                  :family family
                   :external-format external-format))
  
  (defmacro %with-close-on-error ((var value) &body body)
    "Bind VAR to VALUE, execute BODY as implicit PROGN and return VAR.
  On error call CLOSE with :ABORT T on VAR."
    (with-gensyms (errorp)
  
negative.code:                                           local-host local-port remote-host remote-port)))
  
  (define-compiler-macro %make-internet-stream-active-socket (&whole form args family ef)
    (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
  