anchor.diff:  
   #-:lispworks
   (defmethod start-listening ((acceptor acceptor))
  +  (when (acceptor-listen-socket acceptor)
  +    (hunchentoot-error "acceptor ~A is already listening" acceptor))
     (setf (acceptor-listen-socket acceptor)
           (usocket:socket-listen (or (acceptor-address acceptor)
                                      usocket:*wildcard-host*)
  
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
  