anchor.diff:  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 :accessor acceptor-listen-socket
  +   (listen-socket :initform nil
  +                  :accessor acceptor-listen-socket
                     :documentation "The socket listening for incoming
   connections.")
      (acceptor-shutdown-p :initform nil
  
positive.code:   (shutdown (acceptor-taskmaster acceptor))
    #-:lispworks
    (usocket:socket-close (acceptor-listen-socket acceptor))
    acceptor)
  
  (defmethod initialize-connection-stream ((acceptor acceptor) stream)
  
negative.code:     (loop
       (when (acceptor-shutdown-p acceptor)
         (return))
       (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
  