anchor.diff:    (shutdown (acceptor-taskmaster acceptor))
     #-:lispworks
     (usocket:socket-close (acceptor-listen-socket acceptor))
  +  #-:lispworks
  +  (setf (acceptor-listen-socket acceptor) nil)
     acceptor)
   
   (defmethod initialize-connection-stream ((acceptor acceptor) stream)
  
positive.code: 
  #-:lispworks
  (defmethod start-listening ((acceptor acceptor))
    (setf (acceptor-listen-socket acceptor)
          (usocket:socket-listen (or (acceptor-address acceptor)
                                     usocket:*wildcard-host*)
  
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
  