anchor.diff:      (sb-thread:join-thread connection-thread)
       (sb-thread:join-thread broadcast-thread)))
   
  -(defun main ()
  +(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."
  
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: 
  (defun connection-handler (socket-server)
    (loop for connection = (socket-accept socket-server)
          do (sb-thread:make-thread #'safe-client-thread
                                    :arguments (list connection)
                                    :name "create client")))
  
  