anchor.diff:                                                                 *port*))
                         (sb-sys:interactive-interrupt () (format t "Closing the server...")))
         (socket-close socket-server)))
  -  (sb-ext:exit))
  +  (unless (zerop retry)
  +    (main (1- retry))))
  
positive.code:                              :name (format nil "~a reader thread" (client-name client))
                               :arguments (list client)))))
  
  (defun message-broadcast ()
    (loop when (sb-thread:wait-on-semaphore *message-semaphore*)
            do (let ((message (formated-message (pop *messages-stack*))))
  
negative.code:     (sb-thread:join-thread connection-thread)
      (sb-thread:join-thread broadcast-thread)))
  
  (defun main (&optional (retry 1000))
    (let ((socket-server (socket-listen *host* *port*)))
      (unwind-protect (handler-case (server-loop socket-server)
                        (usocket:address-in-use-error () (format t "Address ~a\@~a already busy."
  