anchor.diff:                                         :connect :passive :external-format ef))
              (when local-host
                (setf address (convert-or-lookup-inet-address local-host))
  -             (bind-address socket address :port (or local-port 0)
  +             (bind-address socket address :port local-port
                              :reuse-address reuse-address)
                (socket-listen socket :backlog backlog))))))
       (values socket)))
  
positive.code:            (when nodelay (set-socket-option socket :tcp-nodelay :value t))
             (when local-host
               (setf address (convert-or-lookup-inet-address local-host))
               (bind-address socket address :port (or local-port 0)
                             :reuse-address reuse-address))
             (when remote-host
               (setf address (convert-or-lookup-inet-address remote-host))
  
negative.code: (defun create-socket (&key (family :internet) (type :stream) (connect :active)
                        (protocol :default) (ipv6 *ipv6*)
                        (external-format :default))
    (when (or (null family) (eq family :internet))
      (setf family (if ipv6 :ipv6 :ipv4)))
    (let ((class (select-socket-type family type connect protocol)))
  