anchor.diff:      (loop
        (when (acceptor-shutdown-p acceptor)
          (return))
  -     (when (usocket:wait-for-input listener :timeout +new-connection-wait-time+)
  +     (when (usocket:wait-for-input listener :ready-only t :timeout +new-connection-wait-time+)
          (handler-case
              (when-let (client-connection (usocket:socket-accept listener))
                (set-timeouts client-connection
  
positive.code:   (shutdown (acceptor-taskmaster acceptor))
    #-:lispworks
    (usocket:socket-close (acceptor-listen-socket acceptor))
    acceptor)
  
  (defmethod initialize-connection-stream ((acceptor acceptor) stream)
  
negative.code: matter what kind of taskmaster you are using this will always be a new
  process different from the one where START was called.")
     #-:lispworks
     (listen-socket :initform nil
                    :accessor acceptor-listen-socket
                    :documentation "The socket listening for incoming
  connections.")
     (acceptor-shutdown-p :initform nil
  